Регистрация
стас482
12.06.2022 18:53
Информатика
Есть ответ 👍

с во обращение к программистам)

144
290
Посмотреть ответы 1

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

mir32
mir32
4,4(81 оценок)
Var   i,j,n: integer;   a: array[1..1000] of boolean; begin   write('введите верхнюю границу чисел (до 1000): ');   read(n);   for i: =1 to n do a[i]: =true;   i: =2;   while sqr(i)< =n do begin       j: =sqr(i);       if a[i] then           while j< =n do begin a[j]: =false; j: =j+i end;       inc(i)   end;   for i: =1 to n do       if a[i] then write(i,' ') end. тестовое решение: введите верхнюю границу чисел (до 1000): 100 1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

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