95

Сколько существует простых чисел от 1 до 1000

05 апреля 2023

Сколько существует простых чисел от 1 до 1000

категория: информатика



80

var a: array[1… 1000] of integer; i,j,n: integer; F: boolean; Begin for i: =1 to 1000 do begin F: =false; for j: =2 to n do begin if (n>1) and (i mod a[j]=0) then F: =true; end; if not F then begin n: =n+1; a[n]: =i; writeln (a[n]); end; end; writeln ('n=',n); End.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...