var prost: array [1..100] of integer; i, max, n, j: integer; is_prost: bool; begin max : = 99; prost[1] : = 2; n : = 1; for i : = 2 to max do begin is_prost : = true; for j : = 1 to n do begin is_prost : = is_prost and not (i mod prost[j] = 0); end; if is_prost then begin n : = n + 1; prost[n] : = i; end; end; for i : = 1 to n do if prost[i] > 9 then write(prost[i], ' '); end.
Поделитесь своими знаниями, ответьте на вопрос:
Опрос: информатика сложный предмет? )