Логической переменной р присвоить значение true, если целое n (n>1) - простое число, и значение false - иначе

@DiceMasters · Регистрация: 13.11.2013

Author24 — интернет-сервис помощи студентам

Логической переменной р присвоить значение true, если целое n (n>1) - простое число, и значение false - иначе.
Хорошо знаю, что где то напортачил в своем коде и не знаю где.

Pascal

program zad5;
    var p: boolean;
        i,n: integer;
begin
write ('Введите целое число n= ');
read (n);
if n>1 then begin 
    for i:= 2 to n-1 do
        if n mod i = 0 then p:= false
        else p:= true;
    end;
writeln (p)
end.

@ildwine · 14.11.2013, 09:32

Pascal

var
  p : boolean;
  n, i : integer;
begin
  repeat
    write('введите натуральное число n > 1: ');
    readln(n)
  until n > 1;
  for i := 2 to n - 1 do
    if n mod i = 0 then
    begin
      p := false;
      break {прерываем цикл ибо выяснили что число не простое}
    end
    else p := true;
  writeln(p);
  readln
end.

	14.11.2013, 09:32