Câu hỏi của Lê Ngọc

Question

Viết chương trình chứng minh tam giác vuông.

Cold Wind · Accepted Answer

var a,b,c:real;begin write('nhap 3 canh: '); readln(a,b,c); If ((a*a = b*b c*c) or (b*b=a*a c*c)) or (c*c=b*b a*a) then write('co') else write('khong');end.Câu trả lời: var a,b,c:real;begin write('nhap 3 canh: '); readln(a,b,c); If ((a*a = b*b c*c) or (b*b=a*a c*c)) or (c*c=b*b a*a) then write('co') else write('khong');end.

Phan Tiến Đạt · Answer

program andanh;
uses crt;
var a,b,c:real;
begin
clrscr;
write('Do dai canh thu nhat: ');readln(a);
write('Do dai canh thu hai: ');readln(b);
write('Do dai canh thu ba: ');readln(c);
if (sqr(a) = sqr(b) sqr(c)) or (sqr(b) = sqr(a) sqr(c))
or (sqr(c) = sqr(a) sqr(b))
then write('La tam giac vuong')
else write('Khong phai tam giac vuong');
readln
end.Câu trả lời: program andanh;
uses crt;
var a,b,c:real;
begin
clrscr;
write('Do dai canh thu nhat: ');readln(a);
write('Do dai canh thu hai: ');readln(b);
write('Do dai canh thu ba: ');readln(c);
if (sqr(a) = sqr(b) sqr(c)) or (sqr(b) = sqr(a) sqr(c))
or (sqr(c) = sqr(a) sqr(b))
then write('La tam giac vuong')
else write('Khong phai tam giac vuong');
readln
end.

Lập trình đơn giản

Khoá học trên OLM của Đại học Sư phạm HN

Khoá học trên OLM của Đại học Sư phạm HN