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

Question

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

Answer 1

//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]

Answer 2

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  

Comments

Спасибо большое!)