На обработку поступает положительное целое число,не превышающие 10 в 9 степени.Нужно написать программу которая выводит на экран сумму честных цифр этого числа,не меньших 5.

Alica2653 Alica2653    2   15.03.2020 01:45    2

Ответы
graulity graulity  11.10.2020 21:44

var s,n:integer;

begin

s:=0;

readln(n);

while n>0 do begin

if ((n mod 10) mod 2 = 0) and (n mod 10>=5) then

s:=s+n mod 10;

n:=n div 10;

end;

writeln(s);

end.

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