Ответы на вопрос:
Var a,b,c,prime: longhint; begin writeln('введите число'); readln(a); c: =a; for b: =1 to a do begin if (c mod b=0) then prime: =prime+1; end; if (prime> 2) then writeln('число не простое') else writeln('число простое '); end.
Популярно: Информатика
-
Aminka55511220.04.2022 09:26
-
mishustinat15.08.2022 23:59
-
adv0013.05.2023 22:08
-
Oleganaft12.04.2023 04:16
-
вика2812104.02.2022 10:33
-
igorlevocko01.12.2021 01:40
-
NEADgff17.05.2020 15:11
-
tunekoff22809.11.2020 06:19
-
TheVadCom03.09.2022 07:58
-
Lidyanka10.06.2020 20:20