Помогите пожалуйста с Паскалем! Срочно С клавиатуры вводится натуральное четырёхзначное...

0 голосов
49 просмотров

Помогите пожалуйста с Паскалем! Срочно
С клавиатуры вводится натуральное четырёхзначное число N. Выведете количество учётных цифр этого числа.


Информатика (60 баллов) | 49 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var
a,k:integer;
begin
repeat
   writeln('введите 4-х значное');
   readln(a);
until (a>999)and(a<10000);</span>
   while a>0 do
        begin
           if (a mod 10) mod 2=0 then
               k:=k+1;
           a:=a div 10;
        end;
if k=0 then
   writeln('четных нет')
else 
   writeln(k);
end.

(9.6k баллов)