Задача

[Anna T]

Пожалуйста, не могли бы вы
Составить программу нахождения и вывода всех целых четырехзначных чисел, сумма цифр которых равна 22.

[Stilet]

А наработками похвастаться? А то как напишут тебе объектами, будешь перед преподавателем краснеть за свои "интрегалы"

[Pein95]

var
a,b,c,d:integer;

begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
if a+b+c+d=22 then
writeln(a,b,c,d);
readln;
end.

[bloker]

USES crt;
VAR
 i,x,x1,x2,x3,x4: Integer;
 f:Text;

Begin
  clrscr;
    assign(f, 'c:\num.txt');rewrite(f);
    for i:=1000 to 9999 do
      Begin
         x1:=i div 1000 ;
         x2:=i div 100 mod 10;
         x3:=i div 10 mod 10 ;
         x4:=i mod 10;
         x:=x1+x2+x3+x4 ;
         if x=22 Then
             Begin
                 Writeln(f,x1, '+',x2, '+',x3, '+' ,x4 ,'=',x);
             end;
      end;
   close(f);


END.

[Anna T]

Спасибо большое )