Почему в задаче цикл организован так: for i:=2 to n div 2 do ? пояснить Program Prostoe;
var
n,i,k:longint;
p:boolean;
begin
write('n=');
readln(n);
if n=0 then writeln(' это ноль!') else begin
p:=true;
for i:=2 to n div 2 do if n mod i=0 then begin p:=false;break;end;
write(n,'-число ');
if p then writeln('простое') else writeln ('не простое');
end;
end.
var
n,i,k:longint;
p:boolean;
begin
write('n=');
readln(n);
if n=0 then writeln(' это ноль!') else begin
p:=true;
for i:=2 to n div 2 do if n mod i=0 then begin p:=false;break;end;
write(n,'-число ');
if p then writeln('простое') else writeln ('не простое');
end;
end.
More Questions From This User See All