Помогите! Напишите код программы через Pascal. Даны катеты прямоугольного треугольника.

Помогите! Напишите код программки через Pascal. Даны катеты прямоугольного треугольника. Найдите его гипотенузу и площадь

Задать свой вопрос
2 ответа
Program n1;
var a,b: real;
begin
writeln('введите катеты прямоугльного треугольника: ');
readln(a,b);
writeln('гипотенуза: ',sqrt(a*a+b*b));
write('площадь: ',a*b/2);
end.

var a,b:real;

begin

write ('Введите катеты прямоугольного треугольника: ');

read(a,b);

writeln ('Гипотенуза прямоугольного треугольника равна: ', sqrt(a*a+b*b):0:3);

writeln ('Площадь прямоугольного треугольника одинакова: ', a*b*0.5);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт