Регистрация
insarycheva
29.05.2021 03:45
Информатика
Есть ответ 👍

Составить программу, печатающую все простые числа, не превосходящие данного числа. большое.

187
430
Посмотреть ответы 2

Ответы на вопрос:

sgymgjvb
sgymgjvb
4,8(23 оценок)
//fpc 2.6.4 program sieve_of_eratosthenes; var n, i, x: integer; a: array[1..32000] of boolean; begin   readln(n);   for i: =2 to (n+1) div 2 do   begin     x: =i*2;     while x< =n do     begin       a[x]: =true;       x: =x+i;     end;     x: =0;   end;   for i: =1 to n do if not a[i] then write(i,' ');   readln; end.
3Таня22811
3Таня22811
4,5(92 оценок)

можно по подробнее а людям е понятно о чем ты говоришь и не могут ответить

Популярно: Информатика