Дано натуральное число. определить количество четных цифр в нем. совтавное условие и более одного неполного условного оператора не использовать. паскаль.

милана198026 милана198026    2   01.10.2019 07:10    0

Ответы
неюляша2002 неюляша2002  09.10.2020 07:16

var a,x,k:integer;

begin

write('Введите натуральное число: ');

read(a);

x:=a;

k:=0;

while (x>0) do

begin

if (x mod 2=0) then k:=k+1;

x:=x div 10;

end;

writeln('Количество четный цифр= ',k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика