<u>MS DOS QBasic 1.0</u>
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If
Для начала.
1.Помоем "заварник" в раковине. (от предыдущего чая)
2.Достаем баночку с заваркой
3.Берём чайную ложечку
4.Сыпим заварку в "заварник"
5.Наливаем кипяток
6.Даём завариться чаю.
Составные: крылья, двигатель,кабина
действия: летают, могут перевозить различные грузы