Manunich
Мудрец
(15854)
12 лет назад
var n,i,p,s,k:Integer;
begin
write('n:=');readln(n);
k:=0;
for i:=100 to 999 do begin
p:=i;s:=0;
while p>0 do begin inc(s,p mod 10);p:=p div 10;end;
if s=n then inc(k);
end;
writeln(k);
end.
Источник: Эх, какой-то у меня прямолинейный подход к задаче))