Простые числа

[anksunamun]

пожалуйста, помогите сделать программу: дано целое н>2; напечатать все простые числа из диапазона 2н. заранее спасибо

[Greblin]

Здесь отвечают тем, кто хоть что-то пытается сделает сам, а не ждёт пока за него решат на халяву
В вашем случае быстрее всего будет воспользоваться поиском по форуму

[Stilet]

anksunamun

Девочка, дуй вниз страницы - там ссылки на темы где твоя проблема обсуждалась.

[anksunamun]

с чего вы, интересно, взяли, что я не пыталась сделать программу?

[Serge_Bliznykov]

с чего вы, интересно, взяли, что я не пыталась сделать программу?

1) если пытались - где Ваши попытки - куски программ, конкретные вопросы ?!

2) а что там пытаться-то?! что может не получаться? Вы не знаете, что такое простое число? Или Вы не знаете, как проверить, простое число или нет?!
например, вот так:

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

а так, извините, но это — чисто голословные утверждения...

[anksunamun]

в следующий раз буду писать куски программ, спасибо за объяснение.
ну вот бывает так, что не соображаешь, как сделать