Найти площадь прямоугольного треугольника в паскаль
Answers & Comments
cosulnikovarse
Program programm; var a, b, c, S: real; begin write('Введите величину первого катета '); read(a); write('Введите величину второго катета '); read(b); c := 0.5; S := c * a * b; writeln('Площадь прямоугольного треугольника=', S);end.
Answers & Comments
var a, b, c, S: real;
begin write('Введите величину первого катета '); read(a); write('Введите величину второго катета '); read(b); c := 0.5; S := c * a * b; writeln('Площадь прямоугольного треугольника=', S);end.