Câu 6:
Program dien_tich_hinh_thang;
Var
a,b,h:integer;
Begin
write('Nhap hai day va duong cao: '); readln(a,b,h);
write('Dien tich hinh thang la: ',(a+b)*h/2);
Readln;
End.
Câu 7:
Program hoan_doi;
Var
A,b,c:integer;
Begin
write('Nhap hai so: '); readln(a,b);
C:=a; a:=b; b:=c;
write('Gia tri sau khi hoan doi la: a=',a,' va b=',b);
Readln;
End.
Câu 8:
Program binh_phuong;
Var
N:integer;
Begin
write('Nhap n: '); readln(n);
write('Ket qua la: ',n*n);
readln;
End.
Câu 9:
program tong;
Var
A,b:integer;
Begin
write('Nhap hai so: '); readln(a,b);
write('Tong la: ',a+b);
Readln;
End.
Câu 10:
Program dien_tich;
Var
A:integer;
Begin
write('Nhap canh: '); readln(a);
write('Dien tich la: ',a*a*(sqrt(3)/2):5:2);
Readln;
End.
Chúc bạn học tốt!
