Написать программу которая проверяет является ли целое число введённое пользователем простым рекомендуемый вид экрана во время работы программы приведён ниже даны введение выражающие полужирным шрифтом
Нет комментариев
Ответы
Гость Вот) Модуль нужен, чтобы упростить проверку)
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.
Нет комментариев
Похожие вопросы
Информатика
Номер 10 ( а и б) решите пожалуйста!!!срочно...
Информатика
ПОМОГИТЕ С ИНФОРМАТИКОЙ!...
Список предметов
