Задача с функцией

[Серафимий Долговяз]

Программа.Условие: Написать функцию(логического типа), которая будет проверять простое число или нет.Число задается с экрана

[1..2,1..2 :)]

Лови и отзыв не забудь:

function prost(p:integer):boolean;
var
i,k:integer;
begin
if p=2
then prost:=true
else if p mod 2<>0
then begin
i:=3;
k:=0;
while i<= trunc(sqrt(p)) do
begin
if p mod i=0
then inc(k);
i:=i+2;
end;
if k=0
then prost:=true
end;
end;
var
o:boolean;
m:integer;
begin
readln(m);
if prost(m)=true
then writeln('prostoe')
else writeln('ne prostoe');
readln;
end.

[puporev]

Что-то наворочено как-то.

uses crt;
function Prost(n:longint):boolean;
var i:longint;
begin
for i:=2 to round(sqrt(n)) do
if n mod i=0 then Prost:=false;
end;
var k:longint;
begin
clrscr;
write('Vvedite chislo k=');
readln(k);
write(Prost(k));
readln
end.

[1..2,1..2 :)]

puporev обрати внимание я первый , а во вторых решение твоё полетело у меня с значениями :2,101,4.
Может это мой компилер ... А так согласен коротко

[puporev]

а во вторых решение твоё полетело у меня с значениями :2,101,4.

А вот у меня не полетело. 2 и 101 TRUE; 4 - FALSE

[Викдон]

а зачем нужно round(sqrt(n)) ?
может просто:

var k:longint;
 Function Pr(t:longint):boolean;
  var i:longint;
  begin
    for i:=2 to t-1 do
     if (t mod i=0)  then
      begin
       Pr:=false;
       exit;
      end;
   Pr:=true;
  end;

begin
write('Введите число');
readln(k);
write(Pr(k));
readln;
end.

[1..2,1..2 :)]

Потому что решение сокращается более чем в 2 раза
Из математики известно что число не простое если делится на лю бое число диапозона от 2 до корня из числа или ёще проще до 9!

[puporev]

а зачем нужно round(sqrt(n)) ?

Просто если число имеет делители меньшие корня из этого числа, то оно имеет делители, домножающие первые до этого числа и нет смысла их проверять. Если не имеет делителей меньших корня, то не имеет делителей и больше корня, опять же нет смысла проверять. Делители всегда парные.