Составить программу которая вводит 5 чисел и подсчитывает количество четных и нечётных чисел
ПОЖАЛУЙСТА !!!!!!!!!!!!срочно нужно
Нет комментариев
Ответы
Гость 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.
Нет комментариев
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
Помогите с информатикой, пожалуйста...
Информатика
Информатикаааааа!!!!...
Информатика
Информатика, помогите...
Список предметов
