Ответы на вопрос:
Var a, b, c, s: real; begin write('введите длину 1 катета: '); readln(a); write('введите длину 2 катета: '); readln(b); c : = sqrt(sqr(a) + sqr(b)); s : = 0.5 * a * b; writeln('гипотенуза треугольника = ', c); writeln('площадь треугольника = ', s); readln; end.
Популярно: Информатика
-
youyousiis13.02.2020 04:56
-
Lesya170422.04.2021 04:22
-
ksenia2001528.01.2023 17:06
-
vprivat160413.12.2021 01:04
-
ГульнараС24.05.2022 16:49
-
krasivak18.05.2020 04:52
-
VladGulevevatiy09.03.2023 07:10
-
raminqedimov54324.02.2022 15:10
-
ibatullinazuhra28.10.2021 05:41
-
polcha200201.12.2021 04:06