Никазий
4 год назад
Составить программукоторая вводит 5 чисели подсчитывает количество четных и нечётных чисел ПОЖАЛУЙСТА !!!!!!!!!!!!срочно нужно
ОТВЕТЫ
Gleb
Oct 24, 2020
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.
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.
600
Смежные вопросы:
