Question

1)Viết chương trình nhập 3 số thực a,b,c từ bàn phím và xuất ra bàn phím 3 số đó

2)Viết chương trình nhập từ bàn phím 2 số thực a,b và xuất ra màn hình theo thứ tự tăng dần

3)Viết chương trình nhập từ bàn phím 3 số thực dương và thông báo ra màn hình 3 số đó có là 3 cạnh của tam giác hay ko.Nếu có hãy cho biết tam giác đó là tam giác vuông,cân,đều hay thường

Mn ơi giúp mik vs.Mik đang cần lắm.Mong đc các bn giúp tại mik dở tin lắm

Answer 1

1:

uses crt;

var a,b,c:real;

begin

clrscr;

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

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

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

writeln('so a la: ',a:4:2);

writeln('so b la: ',b:4:2);

writeln('so c la: ',c:4:2);

readln;

end.

2:

uses crt;

var a,b,tam:real;

begin

clrscr;

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

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

if a>b then write(a,' ',b);

if a=b then write(a,' ',b);

if a<b then write(b,' ',a);

readln;

end.

3:

uses crt;

var a,b,c:integer;

begin

clrscr;

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

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

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

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

begin

if (a=b) and (b=c) then writeln('day la tam giac deu');
if ((b=c) and (b<>a) and (c<>a)) or ((a=c) and (a<>b) and (c<>b)) or ((a=b) and (a<>c) and (b<>c)) then writeln('day la tam giac can');
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('day la tam giac vuong')
else writeln('day la tam giac thuong');
end
else writeln('ba canh vua nhap khong phai la tam giac');

readln;

end.