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

Софья151516 Софья151516    1   22.11.2019 14:13    0

Ответы
Vlad2005Mr Vlad2005Mr  23.08.2020 08:56

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика