Написать программу в паскале. Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа
Написать программу в паскале.
Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа
Гость
Ответ(ы) на вопрос:
Гостьprogram folsc;
uses crt;
var s, n:longint;
begin
s:=0;
read (n);
while (n <> 0) do begin
if ((n mod 10) mod 2) =0 then s:=s+n mod 10;
n:=n div 10 end;
writeln (s);
end.
Не нашли ответ?
Похожие вопросы