Вводится последовательность из n положительных целых чисел, 0 – конец последовательности. найти количество всех четных элементов последовательности. нужна шая и программа

juehxbrf juehxbrf    1   18.06.2019 08:10    0

Ответы
KLIFFEKATERINA KLIFFEKATERINA  15.07.2020 00:00
Var   n,i:Integer;
begin 
 i:=0;
 repeat 
 Readln(n); 
 if (n mod 2=0) and (n<>0) then
   Inc(i); 
until n=0; 
Writeln; 
Writeln(i); 
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика