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

Question

Информатика

Люся

30 ноября, 09:46

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

+4

Ответы (1)

Знаете ответ на вопрос?

Любава · Answer 1

Вот) Модуль нужен, чтобы упростить проверку)

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.