Дано основание и высота треугольника. Узнать, чему равна его площадь.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 | program line_10; uses crt; var h, o, s: real; begin clrscr; write(‘Основание > ‘); readln(o); write(‘Высота > ‘); readln(h); s:=o/2*h; write(‘Площадь треугольника: ‘, s:4:2); readkey; end. |