Помогите ребята плз! Очень прошу, а то двоечку поставят

[Kyle]

У меня вот такая задача: написать программу, которая выводит все 3-х значные

простые числа (простые числа - это числа которые делятся на себя и на 1)! Задача

очень простая, но я вообще не могу понять Паскаль.

[somewhere]

Ищите в этом же разделе, такая задача уже была

[Kyle]

да чтобы найти ёё, мне денек понадобиться (((

[Serge_Bliznykov]

Код: Выделить всё

var
   i : integer;

function IsProstoe(N: integer): boolean; 
var 
  i: integer; 
begin 
  IsProstoe := true; 
  if abs(N) < 3 then 
    exit; 
  for i := 2 to abs(N) - 1 do 
    if abs(N) mod i = 0 then 
      begin 
        IsProstoe := false; 
        exit; 
      end; 
end; 

begin
  for i:=100 to 999 do
    if IsProstoe(i) then WriteLn(i:3);
end.

[Serge_Bliznykov]

забыл добавить - функция function IsProstoe(N: integer): boolean;
копирайт -(c) Jokerjar

[BBB]

Здесь обсуждался алгоритм определения, является ли число простым. Ну а то, что числа нужны трехзнчные, то, как написал Serge_Bliznykov, надо перебирать числа от 100 до 999 включительно.

[Kyle]

Ооо...Спасибо ребята))) Реально помогло. Буду вас друзьям советовать) В частности спасибо тебе, Serge_Bliznykov, ))