Предмет: Информатика,
автор: Banchik
На вход программы поступает натуральное число . Требуется определить сумму цифр в десятичной записи этого числа , которые кратны 3(считается , что 0 кратно любому числу). Если в числе нет цифр , кратных 3, требуется на экран вывести "NO".
Ответы
Автор ответа:
0
//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.
Похожие вопросы
Предмет: Математика,
автор: muravevkirill800
Предмет: Алгебра,
автор: ClashOfClans8TX
Предмет: Математика,
автор: smw87
Предмет: Химия,
автор: pronind
Предмет: Алгебра,
автор: glebov2015