Pascal ABC. Вводим четырёхзначное число, определить количество чётных цифр и вывести его на экран.Пример:Вход 1212На выходе 2Я сделал:program Test;uses Crt;var A,B,C,D,E: integer;begintextbackground(8);clrscr;textcolor(15);writ...
Pascal ABC. Вводим четырёхзначное число, определить количество чётных цифр и вывести его на экран.
Пример:
Вход 1212
На выходе 2
Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(
Гость
Ответ(ы) на вопрос:
Гостьvar x,k: integer;
begin
read (x);
while x>1 do
begin
if x mod 2 = 0 then k:=k+1;
x:=x div 10
end;
write (k);
end.
Не нашли ответ?
Похожие вопросы