Bài 9: Cấu trúc rẽ nhánh

Đoàn Thị Yến Ngọc

Viết pt pascal. Cho 3 số nguyên a,b,c, viết pt pytago và lấy ví dụ kiểm tra đúng hoặc sai. Giúp em gấp lắm ạ

Nguyễn Lê Phước Thịnh
25 tháng 11 2020 lúc 15:32

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

end

else kt:=0;

if kt=0 then writeln('Day khong la bo ba Pytago')

else writeln('Day la bo ba Pytago');

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Văn Trần Đình
Xem chi tiết
Nguyễn Diệu Linh
Xem chi tiết
Thảo Linhh
Xem chi tiết
Leg Silver
Xem chi tiết
Mai Thị Nhung
Xem chi tiết
03. Phạm Nguyễn Phương A...
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
Ngọc My
Xem chi tiết
Nga Diệu
Xem chi tiết