Вывести на печать все трехзначные натуральные числа, сумма цифр которых равна заданному числу N.
PascalABC

Ответ:

program abc;

var n,i,s:integer;

begin

readln(n);

if n<100 then

writeln('Vashe chislo ne 3-x.znachnoe')

else

for i:=100 to n do

begin

s:=s+i;

end;

writeln(s)

end.