** вход программы поступает натуральное число . Требуется определить сумму цифр в...

Question

На вход программы поступает натуральное число . Требуется определить сумму цифр в десятичной записи этого числа , которые кратны 3(считается , что 0 кратно любому числу). Если в числе нет цифр , кратных 3, требуется на экран вывести "NO".

Answer 1

//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.