Написать программу которая проверяет является - вопрос №6898233 от serp3246 14.05.2021 01:56

Question

Информатика: Написать программу которая проверяет является ли целое число введённое пользователем простым рекомендуемый вид экрана во время работы программы ниже даны введение выражающие полужирным шрифтом

serp3246 · Answer

Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;

begin
readln(x);

x := abs(x);
for i := 2 to x - 1 do
    if x mod i = 0 then
    begin
      writeln('No');
      exit;
    end;
writeln('Yes');
end.