Предмет: Информатика,
автор: nastenkako
найти периметр и площадь прямоугольного треугольника. ввести длины его катетов a и b. вывести полученные значения
Ответы
Автор ответа:
0
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
Автор ответа:
0
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: nikuran307
Предмет: Обществознание,
автор: zafarbekotajonov
Предмет: География,
автор: mamarasulova77