Question

С клавиатуры вводится целое число от 1 до 999. Напиши программу, которая выводит "Да", если сумма цифр этого числа больше 10, и "Нет" в остальных случаях.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Введи натуральное число:');

 var s := 0;

 while n > 0 do

 begin

   s += n mod 10;

   n := n div 10;

 end;

 if s > 10 then

   Println('Да')

 else

   Println('Нет')

end.