الگوریتم فلوچارت

[جابر حیدری]

عددی ازورودی دریافت کندبه مابگوید عدداول هست یا نیست:ناراحت:

[Veteran]

b = Val(InputBox(""))
For a = 1 To b
If b Mod a = 0 Then
c = c + 1
End If
Next
If c = 2 Then
Print b
End If