Напишите программу для паскаль!
Вычислить площадь прямоугольного треугольника по заданным длинам двух катетов а и b
Ответы
Ответ дал:
0
var
a, b, c, S, P : real;
begin
write('Введите катет a : ');readln(a);
write('Введите катет b : ');readln(b);
c := sqrt(sqr(a)+sqr(b));
P := a + b + c;
S := (a*b)/2;
writeln('Площадь равна : ', S);
readln;
end.
a, b, c, S, P : real;
begin
write('Введите катет a : ');readln(a);
write('Введите катет b : ');readln(b);
c := sqrt(sqr(a)+sqr(b));
P := a + b + c;
S := (a*b)/2;
writeln('Площадь равна : ', S);
readln;
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад