Предмет: Информатика,
автор: poltorachenko98
Описать
процедуру RectDiag(a, b, d), вычисляющую диагональ
прямоугольника со сторонами a, b (a, b — входные, d
— выходной параметр вещественного типа).
Ответы
Автор ответа:
0
procedure RectDiag(a,b: real; var d: real);
begin
d:=sqrt(a*a+b*b);
end;
var a,b,d:real;
begin
read(a,b);
RectDiag(a,b,d);
writeln(d);
end.
begin
d:=sqrt(a*a+b*b);
end;
var a,b,d:real;
begin
read(a,b);
RectDiag(a,b,d);
writeln(d);
end.
Похожие вопросы