Задачи по информатике(basic) 10 класс

[deezell48]

Если не сложно, помогите решить некоторые задачи.Буду очень благодарен.Язык программирования basic.
1.Даны три числа A,B,C. Составить программу и блок схему для нахождения наибольшего среди них.
2.Построение алгоритма или программы для решения задачи, содержащей команды ветвления )опретаоры ветвления,цикла или вспомогательный алгоритм). Вводятся с клавиатуры 5 чисел. Найти среди них количество положительных и найти их сумму.Составить программу на языке программирования basic.
3.Построение алгоритма и реализация на языке программирования basic или в среде учебного исполнителя. Демонстрация полученного алгоритма в среде учебного исполнителя или отладка программы и получение результатов.
4.Определить является ли треугольник со сторонами a,b,c равносторонним.Решение задачи оформить в виде блок схемы.
5.Определить является ли треугольник со сторонами a,b,c равнобедренным. Решение задачи оформить в виде блок схемы.

[Mrsqler]

первая

Sub qwe()
 Dim A As Long
 Dim B As Long
 Dim C As Long

 A = InputBox("Введите значение A")
 B = InputBox("Введите значение B")
 C = InputBox("Введите значение C")
 
 If (A > B) And (A > C) Then MsgBox ("Наибольшее число" & " " & A)
 If (B > C) And (B > A) Then MsgBox ("Наибольшее число" & " " & B)
 If (C > B) And (C > A) Then MsgBox ("Наибольшее число" & " " & C)
End Sub

А вторую...там через массив надо?Или именно с InputBox значения должны считываться?Если с InputBox,то я что-то не соображу)

[deezell48]

Мне нужно qbasic а не визуал

[DiemonStar]

Мне нужно qbasic а не визуал

ну так меняй inputbox на input
а msgbox на Print

естественно, с небольшими изменениями)

[deezell48]

Остальные задачи поможет кто нибудь?