Помогите! Напишите код программы через Pascal. Даны катеты прямоугольного треугольника. Найдите его гипотенузу и площадь
Ответы
Ответ дал:
0
var a,b:real;
begin
write ('Введите катеты прямоугольного треугольника: ');
read(a,b);
writeln ('Гипотенуза прямоугольного треугольника равна: ', sqrt(a*a+b*b):0:3);
writeln ('Площадь прямоугольного треугольника равна: ', a*b*0.5);
end.
Ответ дал:
0
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
writeln('введите катеты прямоугльного треугольника: ');
readln(a,b);
writeln('гипотенуза: ',sqrt(a*a+b*b));
write('площадь: ',a*b/2);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад