Феодул
4 год назад
(программирование)Даны катеты прямоугольного треугольника. Найти его гипотенузу.(Pascal ABC)
ОТВЕТЫ
Верка
Oct 24, 2020
Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('c = ',sqrt(a*a+b*b));
End.
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('c = ',sqrt(a*a+b*b));
End.
402
Смежные вопросы:
