Кто поможет в решение задачи на Turbo Pascal?

[Nusferatus]

вот занятная задачка про простые числа
кстати 2 Макс
1) переходи на ООП, начни с Дельфи

Так то да, +1.
Кстати винда не объектно ориентированная по своей структуре, по крайней мере все до xp включительно :crazy:

 

[Макс]

Забыл отписаться...., всё готово. Находит то что мне нужно.

Program resheto;
uses crt;
const
n = 999999; { Это можно и уменьшить, взят граничный случай}
var
a: array[1 .. n] of longint; {создаём массив от 1 до 999999 }
i, j, s, count: longint;

begin
for i := 1 to n do a := i; {заполняем массив }
a[1] := 0;

for s := 2 to pred do begin
if a <> 0 then begin
j := s * 2;
while j < n do begin
a[j] := 0;
j := j + s;
end;
end;
end;

count := 0;
i := 100000;
while count < 26 do begin
if a > 0 then inc(count);
inc(i);
end;
writeln(a[i - 1]);
end.