написать программу(на ABC pascal), которая находит сумму четных ...
написать программу(на ABC pascal), которая находит сумму четных цифр в введенном с клавиатуры натуральном числе меньше 30000)
Есть ответ
12.12.2022
439
Ответ
Program Zn;var n,k,sum:integer;BeginWriteln('Введите натуральное число');Readln(n);While n0 do begink:= n mod 10;if k mod 2 = 0 then sum:=sum+k;n:= n div 10;end;writeln('Сумма четных чисел = ', sum);end.
(Проверено и откомпелировано на Pascal.NET)
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022