Задачка в Паскале

[Sexy girl*]

Лююдиии помогите пожалуйста, оч как нада!!! Вообщем нужно составить блок-схему, написать прогу в паскале и протестировать ее:
Задача:НАЙТИ 100 ПЕРВЫХ ПРОСТЫХ ЧИСЕЛ.
Целую всех кто поможет =*

[Serge_Bliznykov]

вот функция для проверки, является ли число простым:

function IsProstoe2(N: LongInt): boolean;
var
  i: integer;
begin
  IsProstoe2 := true;
  if abs(N) < 3 then
    exit;
  for i := 2 to Trunc(sqrt(N)) do
    if abs(N) mod i = 0 then
      begin
        IsProstoe2 := false;
        exit;
      end;
end;

дальше берём переменную, например, var K : longint;
счётчик простых чисел.
увеличиваем K,
if K простое - увеличиваем счётчик простых чисел.
повторяем до тех пор, пока счётчик не станет равным 100

[Sexy girl*]

ой, спасибо огромное!* А не знаешь, как блок схему?

[Serge_Bliznykov]

знаю.
самый простой способ взять свою готовую программку (исходный текст, разумеется) и засунуть её в FCEditor

[Sexy girl*]

Sorry(( Я не могу разобраться, как туда засунуть исх. текст??

[Serge_Bliznykov]

Sorry(( Я не могу разобраться, как туда засунуть исх. текст??

Второй пункт меню - "Импорт" - "Открыть..." указываете Ваш PAS файл...


если не получится, так и быть, давайте Ваш исходный текст...
я засуну...

[Sexy girl*]

Все все все. Спасибочки огромное! Чмок*