Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале
// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;
begin
Writeln(Введи первый катет: );Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln(Ошибка при попытке получить числовое значение)
else begin
Writeln(Введи второй катет: );Readln(s2);
Val(s2, b, err);
if err <> 0 then Writeln(Ошибка при попытке получить числовое значение)
else begin
Writeln(Гипотенуза равна , sqrt(a * a + b * b));
Writeln(Площадь равна , 0.5 * a * b)
end
end
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
