Pascalabc.net из чисел от 10 до 99 вывести те, сумма цифр которых равна s

arujan20071 arujan20071    1   20.08.2019 22:40    0

Ответы
zaya46 zaya46  05.10.2020 08:11
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadInteger('S=');
  Range(10,99).Where(m->(m div 10)+(m mod 10)=s).Println
end.

Пример
S= 7
16 25 34 43 52 61 70
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика