Дано основание и высота треугольника. Узнать, чему равна его площадь.
Решение:
|
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. |