Дано число.определить является ли оно простым. программа на паскале. напишите через while или repeat.заранее )
161
196
Ответы на вопрос:
Var n,i: integer; begin write('введите целое число = '); readln(n); i: =2; while (n mod i < > 0) do i: =i+1; if i=n then writeln('число ',n,' простое') else writeln('число ',n,' не простое'); end.
Популярно: Информатика
-
sveta672911.02.2021 01:26
-
vasx16.05.2021 02:08
-
Мел22828.08.2022 11:00
-
anna191919105.02.2022 14:33
-
svetabruhan09.01.2021 17:18
-
ksastaff03.12.2020 15:15
-
NormerSE22.08.2022 06:20
-
alinakolesnikov04.12.2021 10:08
-
wellbiss10.02.2022 16:49
-
amadi88825.12.2020 09:32