Pascal. Задача 1-4

Пользователь вводит длины катетов прямоугольного треугольника. Вывести длину гипотенузы и площадь треугольника.

Решение

var
  a, b, c : double;
begin
  writeln('Введите длины катетов прямоугольного треугольника');
  write('Первый катет? ');
  read(a);
  write('Второй катет? ');
  read(b);
  c := sqrt(a*a + b*b);
  writeln('Длина гипотенузы равна ', c:8:2);
  c := a*b/2;
  writeln('Площадь треугольника равна ', c:8:2);
end.

◄▲►