Информатика, опубликовано 2018-08-22 22:10:32 by Гость
написать программу(на ABC pascal), которая находит сумму четных цифр в введенном с клавиатуры натуральном числе меньше 30000)
Ответ оставил Гость
Program Zn;
var n,k,sum:integer;
Begin
Writeln(Введите натуральное число);
Readln(n);
While n0 do begin
k:= n mod 10;
if k mod 2 = 0 then sum:=sum+k;
n:= n div 10;
end;
writeln(Сумма четных чисел = , sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на