Помогите! Напишите код программы через Pascal. Даны катеты прямоугольного треугольника. Найдите его гипотенузу и площадь
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Протирион
var a, b:real;
begin
write ('Введите катеты прямоугольного треугольника: ') ;
read (a, b) ;
writeln ('Гипотенуза прямоугольного треугольника равна: ', sqrt (a*a+b*b) : 0:3) ;
writeln ('Площадь прямоугольного треугольника равна: ', a*b*0.5) ;
end.
begin
write ('Введите катеты прямоугольного треугольника: ') ;
read (a, b) ;
writeln ('Гипотенуза прямоугольного треугольника равна: ', sqrt (a*a+b*b) : 0:3) ;
writeln ('Площадь прямоугольного треугольника равна: ', a*b*0.5) ;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
