Александр Иванов
Высший разум
(207257)
4 года назад
Раз язык программирования не играет роли, то пусть будет Бейсик:
Sub Pole()
Dim s1 As Single, s2 As Single, s3 As Single, s As Single
s1 = InputBox("Введите размеры 1 поля")
s2 = InputBox("Введите размеры 2 поля")
s3 = InputBox("Введите размеры 3 поля")
s = 36 * s1 + 40 * s2 + 44 * s3
MsgBox (s)
End Sub