Найти из всех четырехзначных чисел...

[farejoker]

Найти из всех четырехзначных чисел...

Найти их всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения последних равна сумме всех цифр. 4-ыхзначное число образуется четырьмя цифрами abcd, тогда искомые числа это те для которых выполняется следующее равенство: a*b-c*d=a+b+c+d..

 

[Vladimir_S]

Найти их всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения последних равна сумме всех цифр. 4-ыхзначное число образуется четырьмя цифрами abcd, тогда искомые числа это те для которых выполняется следующее равенство: a*b-c*d=a+b+c+d..

Да пожалуйста:

Var
 a:Array[1..4] of byte;
 i,n,P1,P2:Word;
 j,Sum:byte;
Begin
 For i:=1000 to 9999 do
  begin
   n:=i;
   Sum:=0;
   for j:=1 to 4 do
    begin
     a[j]:=n mod 10;
     Inc(Sum,a[j]);
     n:=n div 10;
    end;
   P1:=a[3]*a[4];
   P2:=a[1]*a[2];
   if P1-P2=Sum then Write(i,' ');
  end;
 Readln
End.