Программа в Pascal. Определите длину гипотенузы, если известны длины катетов

Вопрос школьника по предмету Информатика

Программа в Pascal. Определите длину гипотенузы, если известны длины катетов

Ответ учителя по предмету Информатика

program znanija

var

  a,b: real; // катеты

  c: real; // гипотенуза

begin

  write (‘Введите длины катетов.’);

  readln (a,b);

  c := sqrt(a*a+b*b);

  writeln (‘Гипотенуза равна:’
, c);
end.