Запиши программу на языке Паскаль. Определить, является ли число, введенное с клавиатуры простым.

Вот рабочий пример на Паскале, проверяющий, является ли введённое число простым. Логика такая: числа меньше 2 — не простые; 2 — простое; чётные (>2) — не простые; дальше пробуем делители только нечётные от 3 до ⌊√n⌋ (условие i <= n div i эквивалентно i*i <= n и не даёт переполниться).

pascal
Копировать код
program PrimeCheck;
var
  n, i: longint;
  isPrime: boolean;
begin
  readln(n);
  if n < 2 then
    writeln('не простое')
  else if n = 2 then
    writeln('простое')
  else if n mod 2 = 0 then
    writeln('не простое')
  else
  begin
    isPrime := true;
    i := 3;
    while (i <= n div i) and isPrime do
    begin
      if n mod i = 0 then
        isPrime := false
      else
        i := i + 2;      { проверяем только нечётные делители }
    end;
    if isPrime then
      writeln('простое')
    else
      writeln('не простое');
  end;
end.

Пример ввода/вывода:

• Ввод: 29 → Вывод: простое

• Ввод: 1 или 0 или -7 → Вывод: не простое

• Ввод: 100 → Вывод: не простое