Question

Дано шестизначное целое число N, в десятичной записи которого нет нулей. Определить, сколько раз встречается в числе цифра 2. Найти наибольшую четную цифру числа. Если в числе нет четных цифр, то сообщить об этом.

Answer 1

program ryazantsev;
var k,max,a:integer;
n:int64;
begin
max:=0; k:=0;
readln(n);
while n <> 0 do begin
a:=n mod 10;
if a=2 then k:=k+1;
if (a mod 2 = 0) and (a>max) then max:=a;
n:=n div 10;
end;
writeln('Количество двоек: ',k);
if max = 0 then writeln('Четных чисел нет')
else writeln('Наибольшее четное число: ', max)
end.