Question

Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal) 

Answer 1

uses crt;

var i,s,a,b,c,ch,o:integer;

begin
o:=0;
writeln(' Vvedite chislo ' );
readln(ch);
for i:=100 to 999 do
begin
a:=i div 100;
b:=(i div 10) mod 10;
c:=i mod 10;
if ((a+b+c) = ch) then
begin
inc(o);
writeln(i);
end;
end;
if o = 0 then writeln('error !');
readln;
end.