Составить программу определяющую является ли число простым

+ 0 -

Ivv11

05 окт. 2016 г., 15:58:31 (7 лет назад)

Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.

var
  number, i : integer;
begin
  write('Число: ');
  readln(number);
  for i := 2 to number div 2 do
    if number mod i = 0 then
    begin
      writeln('Число не является простым, оно делится, как минимум, на ', i);
      Exit;
    end;
  writeln('Число является простым');
end.