Ответы на вопрос:
Самое простое из того, что смог придумать. перебираем числа до половины необходимого (больше нет смысла) (for i : = 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). выводим сообщение. var number, i : integer; begin write('число: '); readln(number); for i : = 2 to number div 2 do if number mod i = 0 then begin writeln('число не является простым, оно делится, как минимум, на ', i); exit; end; writeln('число является простым'); end.
Популярно: Информатика
-
sonyachu20.10.2021 15:40
-
dianag14151712.05.2023 01:51
-
mrzadvorgetski02.06.2022 11:08
-
Mikich203.05.2020 16:09
-
Cuba12507.02.2020 10:57
-
XiaomiK20.02.2021 18:12
-
nikichosipov23.03.2023 10:40
-
Santastiff66608.10.2021 04:34
-
mail000alomer30.07.2021 00:30
-
Ева12а25.04.2020 23:27