Предмет: Информатика,
автор: VM18092000
составьте программу нахождения гипотенузы прямоугольного треугольника если известны его катеты
Ответы
Автор ответа:
0
var
a,b,c,z:real;
begin
writeln ('Введите катет А ');
readln (a);
writeln ('Введите катет B ');
readln (b);
z:=sqr(a)+sqr(b);
c:=sqrt(z);
writeln ('Гипотенуза равна ',c);
end.
a,b,c,z:real;
begin
writeln ('Введите катет А ');
readln (a);
writeln ('Введите катет B ');
readln (b);
z:=sqr(a)+sqr(b);
c:=sqrt(z);
writeln ('Гипотенуза равна ',c);
end.
Похожие вопросы
Предмет: Физика,
автор: yasmin170409g
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: gorovayaantonina707
Предмет: Биология,
автор: Alex200400
Предмет: Литература,
автор: Аноним