Решите на пасхале : найти количество четных цифр натурального числа. формат ввода: на вход подается натуральное, не превосходящее 30000. формат вывода: целое число. пример входных данных 321 пример выходных данных 1
Var num, ct: integer; begin read(num); ct := 0; while num <> 0 do begin if (num MOD 10) MOD 2 = 0 then begin ct += 1; num := num div 10; end else num := num div 10; end; write(ct); end.
num, ct: integer;
begin
read(num);
ct := 0;
while num <> 0 do
begin
if (num MOD 10) MOD 2 = 0 then
begin
ct += 1;
num := num div 10;
end else num := num div 10;
end;
write(ct);
end.
begin
readinteger().ToString.Where(x -> x.ToDigit mod 2 = 0).Count.Println;
end.
Пример работы программы:
832897238
5