Напишите процедуру которая определяет верно ли что переданное ей число - простое....

Question

Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)

Comments

Может функция, а не процедура?

---

Функция возвращает значение, а процедура нет

---

В задании сказано что именно процедура

---

Не вижу смысла писать процедурой, но попробую

Answer 1

Procedure prime(n: integer);
var i: integer;
begin
  for i := 2 to round(sqrt(n)) do
    if n mod i = 0 then
    begin
      writeln('Число ', n, ' составное');
      exit
    end;
  writeln('Число ', n, ' простое')
end;

begin
  prime(3);
  prime(8);
  prime(23);
  prime(35);
end.

Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное

Comments

СПАСИБО БОЛЬШОЕ

---

Пожалуйста

---

:3