Помогите написать программу(см.картинку)

0 голосов

Помогите написать программу(см.картинку)


image

спросил от Начинающий (100 баллов) в категории Информатика
0

№6?

0

Да

0

Ок

0

На чем писать?

1 Ответ
0 голосов
 
Лучший ответ

//Алгоритм: Решето Эратосфена
const n=1000;
var
i, j, count: integer;
b: array[1..n] of boolean;
begin
count:=0;
for i:=1 to n do b[i]:=false;
  for i:=2 to n do
    if not b[i] then
    begin
     inc(count);
     //write (i, '; ');
     j:=1;
      while (i*j<=n) do<br>      begin
       b[i*j]:=true;
       inc(j);
      end;
    end;
write (count);
end.

ответил от Одаренный (3.8k баллов)
...