Есть ответ 👍

Напишите программу которая считает количество чётных цифр введённого числа

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

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


Var x,z,k: integer; begin writeln ('введите число'); readln(x); k: =0; while x< > 0 dobeginz: =x mod 10; x: =x div 10; if x mod 2=0 thenk: =k+1; end; writeln('кол-во чётных чисел : ',k); end.
huntress26
4,7(78 оценок)

663: 51=13ответ: 13 51

Популярно: Информатика