Составить программу которая вводит 5 чисел и подсчитывает количество четных и нечётных чисел нужно

Darya4567 Darya4567    1   13.09.2019 13:00    0

Ответы
egorkovalev07ozgv8o egorkovalev07ozgv8o  07.10.2020 11:55
Var
a,b,c: integer;
begin
readln(a);
c:=0;
while a<>0 do
begin
b:= a mod 10;
a:= a div 10;
if x mod 2=0 then 
c:=c+1;
end;
writeln(c)
end.
ПОКАЗАТЬ ОТВЕТЫ
матиматик13 матиматик13  07.10.2020 11:55
Var a,z,q:integer;
begin
readln(a);
q:=0;
while a<>0 do
begin
z:=a mod 10;
a:=a div 10;
if a mod 2=0 then
q:=q+1;
end;
writeln(q);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика