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

farejoker · 26.11.2013, 11:50

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

Vladimir_S · 26.11.2013, 14:37

Цитата:

Сообщение от farejoker

Найти их всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения последних равна сумме всех цифр. 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.

26.11.2013, 11:50	#1 (permalink)
farejoker Member Регистрация: 26.04.2013 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Найти из всех четырехзначных чисел... Найти их всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения последних равна сумме всех цифр. 4-ыхзначное число образуется четырьмя цифрами abcd, тогда искомые числа это те для которых выполняется следующее равенство: ab-cd=a+b+c+d..

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070