Написать программу нахождения всех натуральных чисел, которые можно представить в виде произведения двух простых чисел - Pascal - Ответ 66065

uses crt;
function Prost(n:integer):boolean; {функция нахождения простых чисел}
var i:integer;
begin
  for i:=2 to round(sqrt(n)) do {смотрим от 2 до корня из числа, дальше пойдут повторения}
  if n mod i=0 then {если есть делители}
     begin
        Prost:=false; {не простое}
     end;
end;
function PrProst(x:integer):boolean; {функция поска чисел по условию задачи}
var i,j:integer;
begin
PrProst:=false;
for i:=2 to round(sqrt(x)) do {первый сомножитель от 2 до корня}
for j:=round(sqrt(x)) to (x div 2) do  {второй сомножитель от корня до половины числа}
if Prost(i)and Prost(j)and(i*j=x)then {если оба простые и произведение = числу}
PrProst:=true;{подходит}
end;

var P,i,j,k:integer;
begin
clrscr;
write('P=');readln(P); {наше число}
for i:=2 to P do
   begin
     if PrProst(i)then writeln(i); {если соответствует, выводим}
     if i mod 60=0 then readln;  {при больших Р чисел много, все на экран не входят, выводим порциями}
   end;
readln
end.