вводится число и программа должна сказать ПРОСТОЕ оно или нет (Pascal)

[diana1995]

вводится число и программа должна сказать простое оно или нет
(простите за ошибку)
нашла в интернете

var
n,i,q: integer;
f: boolean;
begin
q:=0;
write('Number: ');
readln(n);
while n > 2 do begin
f:=true;
for i:=2 to n div 2 do
if n mod i = 0 then
f:=false;
if f then
q:=q+1;
write('Number: ');
readln(n);
end;
writeln(q,' prime numbers');
readln;
end.

не очень понимаю что там делает программа.. и вообще это то что мне надо?
простое число- которое делится только само на себя и на единицу
например: 5, 2, 3, 11, 17

[Hemul]

var
    n:integer;
begin
   readln(n);
   if frac(n) = 0 then 
      writeln('Целое')
   else
      writeln('Дробное')

end.

[diana1995]

простое число - которое делится только на единицу и само на себя
такие как 2,3, 5, 7 ,11, 17

[Poma][a]

Диана, не мешало бы определиться Вам нужна программа, отвечающая на вопрос "Натуральное ли число?" или "Простое ли число?".

Любая из программ не очень сложна (очень мягко сказано), поэтому искать их в паутине - не есть хорошо, особенно если Вы хотите в дальнейшем писать программы сложнее HelloWord'a

[Abstraction]

вводится число и программа должна сказать натуральное оно или нет

вы не правильно поняли)
простое число - которое делится только на единицу и само на себя
такие как 2,3, 5, 7 ,11, 12, 17

Это точно мы неправильно поняли?

В чём проблема? Вы можете составить цикл, в котором k пробегало бы значения от 2 до (n-1)? Вы можете проверить, делится ли n на k? Если нет, то что говорит по этому поводу используемый Вами учебник?

[Hemul]

Сообщение от Abstraction

до (n-1)?

до корня из n, если быть точнее

[diana1995]

да, простите это моя ошибка... вводится число и программа должна сказать ПРОСТОЕ они или нет.

[Poma][a]

Abstraction, уже написал Вам словесное описание Вашего алгоритма. Я подскажу, что лучше будет использовать цикл while. Дальше дело за Вами, мы лишь можем проверить и подсказать что и как..
Кстати, замечание Hemul'a верно. И лучше проверять до корня из N

[Serge_Bliznykov]

{название темы исправил}

Диана, смотрите внизу "Похожие темы".
Задача проверки числа на простоту решалась на форуме огромное число раз!

вот, например, функция проверки числа на простоту:

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;