Cho biết độ dài cạnh huyền và cạnh góc vuông.
Tính cạnh góc vuông còn lại

Question

Cho biết độ dài cạnh huyền và cạnh góc vuông. Tính cạnh góc vuông còn lại

minhuyen · Answer

program phuongt;

uses crt;

var a, b, c: real;

begin

clrscr;

write(‘Nhap canh huyen: ‘); readln(a);

write(‘Nhap canh goc vuong: ‘); readln(b);

c:=a*a-b*b;

write(‘Canh goc vuong con lai la: ‘, sqrt(c));

readln

end.

hoaianh · Answer

program canhgocvuong;

uses crt;

var ch,cgv1,cgv2:real;

begin

clrscr;

write(‘Nhap do dai canh huyen: ‘); readln(ch);

write(‘Nhap do dai canh huyen thu nhat: ‘); readln(cgv1);

cgv2:=sqrt(sqr(ch)-sqr(cgv1));

write(‘Canh goc vuong con lai la: ‘,cgv2:2);

readln;

end.