Написать на паскале: из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s> 0; s< 18) cрочно!

avangardstroic avangardstroic    2   31.07.2019 14:00    2

Ответы
vikulya30 vikulya30  03.10.2020 18:37
Var i,s:integer;
begin
write('s = '); readln(s);
for i:=10 to 99 do
 if (i div 10)+(i mod 10)=s then write(i,'  ');
writeln;
end.

Пример:
s = 10
19  28  37  46  55  64  73  82  91  
ПОКАЗАТЬ ОТВЕТЫ
Den0410 Den0410  03.10.2020 18:37
//Pascal ABC.NET 3.1 сборка 1219

begin
 var a:=ReadInteger();
 writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.

Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика