Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.03.2016, 23:06   #1
Julia_Sv
Пользователь
 
Регистрация: 20.12.2015
Сообщений: 18
По умолчанию Выписать все простые числа, не превышающие данного числа N.

Выписать все простые числа, не превышающие данного числа N.
Julia_Sv вне форума Ответить с цитированием
Старый 08.03.2016, 23:17   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
function isPrime(X: LongInt): boolean;
var i: integer;
  xsqrt : longint;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     xsqrt := trunc( sqrt(x) );
     while i <= xsqrt do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var i,N : integer;
begin
  WriteLn('Input N:');
  ReadLn(N);
  for i:=2 to N do
    if isPrime(i) do Write(i,' ');
  WriteLn
end.
Поздравляю с 8-м Марта!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа a и b (a<b). Получить все простые числа из промежутка от a до b. ( с# ) NastyaShuvalova Помощь студентам 0 16.12.2013 18:08
Найти все простые числа С++ vsubotka Помощь студентам 3 20.11.2013 12:05
Даны целые числа р и q. Получить все делители числа q, взаимно простые c г. Владан Паскаль, Turbo Pascal, PascalABC.NET 2 03.12.2012 23:39
Задачи в ТурбоПаскаль: найти числа Армстронга и просуммировать числа в последовательности номера которых простые числа Lena1808 Помощь студентам 1 17.05.2012 08:00