Question

Giúp em giải với ạ

B1: Viết chương trình đổi chỗ 2 số nguyên x,y theo thứ tự tăng dần

B2:Viết chương trình tính diện tích hình thang

B3:Viết chương trình nhập vào 3 số a,b,c. Xét xem 3 số a,b,c có lập thành tam giác không? Tam giác đó là tam giác gì?

B4:Viết chương trình kiểm tra xem trong 3 số a b c nhập từ bàn phím, số nào là lớn nhất

Answer 1

Program So_Nguyen;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write ('Nhap so nguyen x,y:');

Readln(x,y);

If x>y then Write('x,y');

else then write('y,x');

Readln;

End.

Answer 2

Prgram Dien_Tich;

Uses crt;

var l,b,c,dt:real;

Begin

Clrscr;

Write(' Nhập đáy lớn và đáy bé:');

Readln(l,b);

dt:= (l+b)*c/2;

Writeln('Diện tích hình thanh là',dt);

readln;

End.