найти определённые простые числа в интервале [Паскаль]

[Юкоша]

На интервале (1000 .. 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр записи этого числа равна сумме третьей и четвёртой цифр. если можно то блок-схему тоже...мой адрес вконтакте http://vkontakte.ru/id37883363

[Hacker19_90]

for i := 1000 to 9999 do
begin
    flag := true;
    for j := 2 to (i -1) do
        if ((i mod j) = 0) then flag := false;
    if flag = true then
    begin
        hi := i div 100;
        lo := i mod 100;
        sumhi := (hi div 10) + (hi mod 10);
        sumlo := (lo div 10) + (lo mod 10);
        if sumhi = sumlo then writeln (i);  
    end;
end;

если нужна блок схема пиши http://vkontakte.ru/id19574082 или в асю

[Serge_Bliznykov]

подобные задачи можно решать двумя способами:
цикл от 1000 до 9999
в цикле - проверка числа на простоту + разложение на цифры и сложение нужных циферок

либо другой вариант (кстати, мне он больше нравится, ибо эффективнее первого и проще) - четыре вложенных цикла (по каждой циферке отдельно):

  
  for  i1:=1 to 9 do
    for i2:=0 to 9 do
      for i3:=0 to 9 do
        for i4:=0 to 9 do
    if (i1+i2) = (i3+i4) then begin 
       k := i1*1000+i2*100+i3+10+i4;
       if  isPrime(k) then WriteLn(k);
    end;

причём, это уже почти полностью готовая программа!


p.s. поищите, на форуме полно примеров функций, проверяющий число на простоту.я буквально пару дней назад в очередной раз выкладывал пример функции isPrime тут - Простые числа. Задача.

[Юкоша]

вы уверены что это для школьного уровня?

[Stilet]

Юкоша

А ты уверена что это вообще задача для школьного уровня?
Мы такое только в колледже изучали...