процедура.

[stil]

Всем привет.
создайте пжл. процедуру.


найти все простые числа из диапозона( от 2 до 255)



желательно чтобы работала.

[BDA]

Сначала хотел послать вас в поиск.
Потом вспомнил, что видел похожую задачу недавно.
Нашел тему...
И она оказалась ваша.
Зачем создавать дубль темы?
Вы же получили множество вариантов решения.
http://programmersforum.ru/showthread.php?t=200049

[stil]

потому что все те процедуры не работают.

[Hacker19_90]

потому что все те процедуры не работают.

Это с чего вы взяли?
Нука показывайте чё там у вас получилось!

[stil]

var
   i, j:Integer;
   log: Boolean;
begin
  for i:=0 to 255 do
  begin
    log := false;
    for j:=2 to trunc(sqrt(i)) do
    begin
      if i mod j =0 then
      begin
        log := true;
        Break;
      end;
    end;

    if not log then
    Memo1.Lines.Add(IntToStr(i));
  end;
end;

мне надо чтоб было написано простым языком.

[Hacker19_90]

мне надо чтоб было написано простым языком.

каким русским чтоли?
Вы в делфи работаете?

[stil]

не не работаю.

нет не на русском.

[Hacker19_90]

не не работаю.

а на чём? Паскаль? С++?

[stil]

Я работаю в Basic.

[Hacker19_90]

Я работаю в Basic.

ааааааааа Я ПЛАЧУ!