Question

Найти все целые трёхзначные числа сумма цифр которых равна 6.Pascal ABC.Срочно

Answer 1

var a,b,c,i:integer;
begin
for i:=100 to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if a+b+c = 6 then writeln(i)
end;
readln
end.

Answer 2

Боже,огромное спасибо,вы спасли мою четвертную!

Answer 3

Var
  a,b,c: byte;
Begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        if (a+b+c = 6) then
          WriteLn(a,b,c);
End.

Вывод:

105
114
123
132
141
150
204
213
222
231
240
303
312
321
330
402
411
420
501
510
600