Цитата:
Сообщение от mister ratmir
Дано натуральное число N (N<28). Получить все натуральные трехзначные числа, сумма цифр которого равна N.
|
Код:
var n, i, k,s,d,e: integer;
begin
writeln('Введите натуральное N, меньшее 28');
repeat
readln(n);
if n<28 then inc(k) else k:=0;
until k<>0;
for i:=100 to 999 do
begin
s:=i div 100;
d:=i div 10;
e:=(i mod 100) mod 10;
k:=s+d+e;
if k=n then writeln(i); end;
readln;
end.