Ответ учителя по предмету Информатика
Вот) Модуль нужен, чтобы упростить проверку)
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.
Похожие вопросы от пользователей
Mg — MgO — MgCl2 — Mg(OH)2
SO2 — SO3 — H2SO4 — Na2SO4
Zn — ZnO — ZnSO4 — Zn(OH)2
P — P2O5 — H3PO4 — K3PO4