ЕН
Елена Насонова
Дано натуральное число n. среди чисел n, n+1,...2n найти те, которые являются простыми числами. ( определить процедуру,
Помогите написать программу в Pascal
Помогите написать программу в Pascal
program prostoe;
uses TPCrt;
label 1;
var
i,j,n:integer;
x,z:real;
begin
ClrScr; {очистка экрана}
n:=7;
for i:=n to 2*n do begin
for j:=2 to i do begin
x:=i/j;
z:=round(x);
z:=x-z;
if (x=1) and (z=0) then writeln('->',i:7)
else if z=0 then goto 1;
end;{j}
1: end;{i}
readln(i);
end.