Связь с администрацией сайта:       

demo

Среди толпы я одинок

Pascal Поиск длины гипотенузы между двумя катетами

           Программа для нахождения длины гипотенузы треугольника между двумя катетами на языке Pascal(Паскаль)
 
 
Var 
a,b,c:real; 

Begin
Write
('Введите длину первого катета: ');
Readln
(a);
Write
('Введите длину второго катета: ');
Readln
(b); c:=sqrt(a*a+b*b);
Writeln
('Гипотенуза = ',c:0:2);
End.
Rate this item
(0 votes)
2 comments
  • Administrator

    Спасибо, Gff2. Поправили недочёт.

    Administrator 30.03.2017 19:27 Comment Link
  • Gff2

    У вас некрасиво отображается код. В одну строку.

    Gff2 30.03.2017 19:24 Comment Link
Login to post comments