задачко), О Великие, языка сего... Опции

[улЫбастик]

А дело, собсно, в чем...
>>На интервале (1000;9999) найти все простые числа, у которых сумма перфой и и второй циф0р равняется сумме третей и четвертой.

есть идея, относительно цифр: (число div 1000) и будет первой цифрой; с остальными - по анологии.
а как быть с нахождением всех простых чисел?

[Tan]

Что - то в этом роде ?

uses crt;
var k : integer;
function Simple (n : integer) : boolean;
var sum, i : integer;
  begin
   sum := 0;
   for i := 1 to N do if n mod i = 0 then inc (sum);
   if sum = 2 then Simple := True else Simple := False;
end;
 function Check (n : integer) : boolean;
 var  cifri : array [1..4] of integer;
      i : integer;
  begin
      i := 5;
    while n > 0 do
    begin
      dec (i);
      cifri[i] := n mod 10;
      n := n div 10;
    end;
    if cifri[1] + cifri[2] = cifri[3] + cifri[4] then Check := True else Check := False;
  end;
begin
Clrscr;
for k := 1000 to 9999 do if Simple(k) and Check(k) then writeln (k);
end.

Сообщение отредактировано: Tan - 20.10.2007 17:47