Предмет: Информатика,
автор: sorokamoroka
Вычисление катета прямоугольного треугольника. (Паскаль)
Ответы
Автор ответа:
0
Program h;
Var a,b:real;
Begin
Writeln ('Введите длину гипотенузы');
Readln(a);
Writeln('Введите длину катета');
Readln(b);
a:= sqrt (a*a-b*b);
Writeln(' Длина катета', ' ', b);
End.
Var a,b:real;
Begin
Writeln ('Введите длину гипотенузы');
Readln(a);
Writeln('Введите длину катета');
Readln(b);
a:= sqrt (a*a-b*b);
Writeln(' Длина катета', ' ', b);
End.
Похожие вопросы
Предмет: Математика,
автор: irgashevberdiar
Предмет: Русский язык,
автор: abubakirhalmatov0601
Предмет: Математика,
автор: ermekovd07
Предмет: Математика,
автор: aidagaliullina