Ответы на вопрос:
Var a,i,k: byte; begin write('простые двузначные числа: '); for a: = 10 to 99 do begin k: =0; for i: = 2 to a div 2 do if a mod i = 0 then k: =k+1; if k = 0 then write(' ',a) end end. результат работы программы: простые двузначные числа: 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
Популярно: Информатика
-
mssuslova198028.06.2023 14:08
-
тата24605.07.2020 13:55
-
Glebborg19.04.2023 12:20
-
kuro406.02.2022 02:25
-
kkoluzhonokp08din20.07.2021 01:01
-
ilyasovazalina13.05.2022 07:46
-
TheNekyTyan16.05.2020 02:47
-
catpolina2125.05.2020 05:12
-
zavya5506.08.2021 18:07
-
AMK52516.12.2021 01:39