Выводим простые целые числа, что меньше заданного числа

Выводим простые целые числа, что меньше заданного числа

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 212 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    var primes: set of integer;
    n:integer;
    begin
    writeln('Введите любое челое число: ');
    readln(n);
    primes := [2..n];
    for var i:=2 to round(sqrt(n)) do
    begin
    if not (i in primes) then continue;
    var x := i*i;
    while x<=n do
    begin
    Exclude(primes,x); x += i; end;
    end;
    writeln('Простые целые числа < ',n,':');
    writeln(primes);
    end.
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.