Дано натуральное число n. выведите в порядке возрастания все трёхзначные числа, сумма цифр которых равна n.

если pascal:

var

n: byte;

i: integer;

begin

readln(n);

for i: =100 to 999 do

if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);

end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end