Question

Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале

Answer 1

// 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.