Tin học Viết chương trình nhập ba số trong chương trình Pascal

[Cô bé Bánh Bèo]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập ba cạnh a, b, c, của một tam giác và cho biết tam giác đó là tam giác gì? Nếu là tam giác thì đó là tam giác j? nếu không phải ba cạnh của tam giác thì yêu cầu nhập lại ba số. (thực hiện theo vòng lặp While-do , For - do




Giúp em trình bày vs ạ

 

[Trâm Nguyễn Thị Ngọc]

var
a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then write ('a,b,c la canh tam giac deu')
else
if(a=b) or (b=c) then write('a,b,c la canh tam giac can')
else
if(a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then write ('a,b,c la canh tam giac vuong')
else write('a,b,c la canh tam giac thuong');
end
else write('a,b,c khong la canh tam giac');
readln
end.

 

[HThieu3177]

var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then write ('a,b,c la canh tam giac deu')
else
if(a=b) or (b=c) or (a=c) then write('a,b,c la canh tam giac can')
else
if(a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then write ('a,b,c la canh tam giac vuong')
else write('a,b,c la canh tam giac thuong');
end
else write('a,b,c khong la canh tam giac. nhap lai');
readln
end.