Ответы на вопрос:
Var i,a: integer; b: boolean: =true; begin write('введите число = '); readln(a); for i: =2 to round(sqrt(a)) do if a mod i = 0 then begin b: =false; break; end; if b then writeln('число ',a,' является простым') else writeln('число ',a,' не является простым') end.
Популярно: Информатика
-
YomiTan11.08.2021 07:59
-
lizakaraseva002.07.2022 04:42
-
polisavostina25.03.2022 06:34
-
matyusha4720.02.2023 22:27
-
Mimimishkaaaa27.01.2022 17:34
-
satova103.04.2022 14:17
-
11111111117629.07.2022 09:51
-
MaShall561906.01.2023 16:23
-
NextHelp20.10.2022 19:17
-
Аметисса1Грэсс27.09.2021 21:22