СОЗДАНИЕ ПРОГРАММ С ЦИКЛИЧЕСКОЙ СТРУКТУРОЙ Составьте блок-схему и программу на языке VBA, которая проверяет: (СРОЧНО!)

делишь в цикле на цело с остатком,
если остатка нет, то делишь то что разделилось.

7 - простое,
48/2 = 24
24/2 = 12
12/2 = 6
6/2 = 3
3/3 = 1

Сначала = массив простых чисел,
потом их перебираешь в двойном цикле.

Если чё непонятно - пиши, отвечу.

Sub prog()
n = InputBox("Введи число: ")
f = 1
For i = 2 To Int(n ^ 0.5 + 1)
If n Mod i = 0 Then f = 0
Next i
If f = 0 Then MsgBox "Не простое" Else MsgBox "Простое"
End Sub

1 - не простое
2 - простое
3 - простое
4 - не простое
5 - простое
6 - не простое
7 - простое
8 - не простое
9 - не простое
10 - не простое
11 - простое
12 - не простое
13 - простое
14 - не простое
15 - не простое
16 - не простое
17 - простое
18 - не простое
19 - простое
20 - не простое
21 - не простое
22 - не простое
23 - простое
24 - не простое
25 - не простое
26 - не простое
27 - не простое
28 - не простое
29 - простое
30 - не простое
31 - простое
32 - не простое
33 - не простое
34 - не простое
35 - не простое
36 - не простое
37 - простое
38 - не простое
39 - не простое
40 - не простое
41 - простое
42 - не простое
43 - простое
44 - не простое
45 - не простое
46 - не простое
47 - простое
48 - не простое
49 - не простое
50 - не простое
51 - не простое
52 - не простое
53 - простое
54 - не простое
55 - не простое
56 - не простое
57 - не простое
58 - не простое
59 - простое
60 - не простое
61 - простое
62 - не простое
63 - не простое
64 - не простое
65 - не простое
66 - не простое
67 - простое
68 - не простое
69 - не простое
70 - не простое
71 - простое
72 - не простое
73 - простое
74 - не простое
75 - не простое
76 - не простое
77 - не простое
78 - не простое
79 - простое
80 - не простое
81 - не простое
82 - не простое
83 - простое
84 - не простое
85 - не простое
86 - не простое
87 - не простое
88 - не простое
89 - простое
90 - не простое