Напишите программу, которая считает количество четных цифр введенного числа

Question

Информатика

Марюта

8 марта, 23:14

Напишите программу, которая считает количество четных цифр введенного числа

+3

Ответы (1)

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

Исакий · Answer 1

Var

s:string;

i, n:longint;

begin

readln (s) ;

for i:=1 to length (s) do

if (s[i]='2') or (s[i]='4') or (s[i]='6') or (s[i]='8') then inc (n) ;

writeln (n) ;

end.