На вход программы поступает натуральное число . Требуется определить сумму цифр в десятичной записи этого числа , которые кратны 3(считается , что 0 кратно любому числу). Если в числе нет цифр , кратных 3, требуется на экран вывести "NO".
More Questions From This User See All
Answers & Comments
Verified answer
//PascalABC.NET v3.3 1633
begin
var num:=ReadString('Введите натуральное число: ');
var sum:=0;
for var i:=1 to num.Length do
if StrToInt(num[i]) mod 3 = 0 then
sum += StrToInt(num[i]);
if sum = 0 then
writeln('NO')
else
writeln('Сумма цифр,кратных 3 равна '+sum);
end.