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

Question

Ростислав

28 августа, 14:47

+3

Ответы (1)

Знаете ответ на вопрос?

Мамелфа · Answer 1

Program enot;

Var a, b, i: integer;

c: real;

begin

read (a, b) ;

i:=a*a+b*b;

c: = sqrt (i) ;

writeln (c) ;

end.