Question

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

Answer 1

var
  a: int64;
  ans: boolean;

function is_prime(a: int64): boolean;
var
  i: int64;
begin
  is_prime := true;
  i := 2;
  while (i * i <= a) do
  if (a mod i = 0) then begin
    is_prime := false;
    exit;
  end else
    i := i + 1;
end;

begin
  readln(a);
  ans := is_prime(a);
  if ans then
    writeln('prime')
  else
    writeln('composite');
end.

Answer 2

Я могу помочь вам написать программу на языке Паскаль, которая определяет, является ли число, введенное с клавиатуры, простым. Простое число - это натуральное число, которое делится только на себя и на единицу. Для того, чтобы проверить, является ли число простым, мы можем использовать следующий алгоритм:

- Вводим число с клавиатуры и присваиваем его переменной n. - Создаем переменную d и присваиваем ей значение 2. Эта переменная будет служить делителем для проверки числа n. - Создаем переменную flag и присваиваем ей значение true. Эта переменная будет служить флагом для определения, является ли число n простым или нет. - Пока d меньше n и flag равен true, выполняем следующие действия: - Если n делится на d без остатка, то присваиваем flag значение false и прерываем цикл. Это означает, что число n не является простым, так как имеет делитель, отличный от себя и единицы. - В противном случае, увеличиваем d на единицу и продолжаем цикл. - После окончания цикла, проверяем значение flag. Если оно равно true, то выводим на экран сообщение, что число n простое. Если оно равно false, то выводим на экран сообщение, что число n составное.

Используя этот алгоритм, мы можем написать программу на языке Паскаль следующим образом:

program PrimeNumber;
var
  n, d: integer;
  flag: boolean;
begin
  writeln('Введите число:');
  readln(n);
  d := 2;
  flag := true;
  while (d < n) and (flag = true) do
  begin
    if n mod d = 0 then
      flag := false
    else
      d := d + 1;
  end;
  if flag = true then
    writeln('Число ', n, ' простое')
  else
    writeln('Число ', n, ' составное');
end.

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

: [Простое число](https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D1%81%D1%82%D0%BE%D0%B5_%D1%87%D0%B8%D1%81%D0%BB%D0%BE