Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран:

а) количество считанных десятичных цифр;

б) количество четных цифр;

в) количество нечетных цифр;

Question

Информатика

Феоза

20 сентября, 18:34

Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран:

а) количество считанных десятичных цифр;

б) количество четных цифр;

в) количество нечетных цифр;

+1

Ответы (1)

Знаете ответ на вопрос?

Бенедикт · Answer 1

Var

i, n, x, y, z:integer;

s:string;

begin

readln (s) ;

for i:=1 to length (s) do

if (47
begin

n:=StrToInt (s[i]) ;

case n of 0 ... 9:

begin

x:=x+1;

if n mod 2=0 then y:=y+1 else z:=z+1

end

end

end;

writeln ('Число цифр: ', x,'; четных цифр: ', y,'; нечетных цифр: ', z)

end.