Ответы
Ответ дал:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Похожие вопросы
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад