Прошу помощи с 3-мя заданиями, маленькие, но не по силам

[lemon3ater]

Всем привет, мне вот помощь нужна срочно, даже в соседней теме разместил вопрос, сори админы если что не так..

1) В каком диапазоне лежит значение переменной Х в результате выполнения фрагмента программы:

Dim x As Integer
X=Int((Rnd*20)+1)

2) Составить проект, определяющий, существует ли треугольник со сторонами a, b, c введенными с клавиатуры. При этом выводится соответствующиее сообщение.

3) Чему будет равно значение переменной S в результате выполнения фрагмента программы:

Dim K, S As Integer
S=0
For I=1 to 5
F=S+k
Next K

Похоже в 3-ем задании косяк, но незнаю точно.. <_<
Чуваки всем спасибо заранее))

 

[Vlanib]

1) От 1 до 20

2)

Dim a, b, c
a = InputBox("Введите длину стороны a:")
b = InputBox("Введите длину стороны b:")
c = InputBox("Введите длину стороны c:")
If ((a + b > c) And (b + c > a) And (c + a > b)) Then
MsgBox "abc может быть треугольником"
Else
MsgBox "abc не может быть треугольником"
End If

3) Точно косяк. S всегда будет 0.

 

[lemon3ater]

Спасибо дружище, только вот у меня к первому вопрос, почему получилось до 20? <_<

 

[Vlanib]

To produce random integers in a given range, use this formula:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

 

[lemon3ater]

Мм, ясно спасибо еще раз

ЗЫ Админы тему можно закрывать вопрос исчерпан)