Program Praktik6;
Uses crt;
var x,y: Longint; chet,nechet:word;
begin
Write ('Введите целое число ');
Readln (x);
Chet:=0;
Nechet:=0;
While (x>0) do
begin
Y:= x mod 10;
if Y mod 2=0 then chet:=chet+1 else nechet:=nechet+1;
x:=x div 10
end;
Writeln ('число четных чисел равно ',chet);
writeln ('число нечетных чисел равно ',nechet);
Readkey
End.
ответ к заданию
Uses crt;
var x,y: Longint; chet,nechet:word;
begin
Write ('Введите целое число ');
Readln (x);
Chet:=0;
Nechet:=0;
While (x>0) do
begin
Y:= x mod 10;
if Y mod 2=0 then chet:=chet+1 else nechet:=nechet+1;
x:=x div 10
end;
Writeln ('число четных чисел равно ',chet);
writeln ('число нечетных чисел равно ',nechet);
Readkey
End.