Написать программу на паскале: найдите количество четных цифр в десятичной записи числа

125

472

Посмотреть ответы 2

Ответы на вопрос:

UzZzeR

Информатика

4,7(70 оценок)

Program znanija; uses crt; var x,k: integer; begin clrscr; writeln( 'введите число: ' ); readln(x); while x> 1 do begin if x mod 2=0 then k: =k+1; x: = x div 10; end; writeln( 'количество чётных чисел в числе= ',k ); readln; end.