Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.