найти сумму чисел от 1 до 5 на языке бейсик
Ответы на вопрос
Ответил archery
0
Sub Zadanie()
s = 0
for i = 1 to 5
s = s + i
next
MsgBox s
End Sub
Call Zadanie()
s = 0
for i = 1 to 5
s = s + i
next
MsgBox s
End Sub
Call Zadanie()
Новые вопросы