Bài 6 :

uses crt;

var a, b, c, d, s : integer;

begin

clrscr;

write('Nhap 4 so : '); readln(a, b, c, d);

s := a + b + c + d;

write('Tong 4 so = ', s);

readln

end.

Câu 7 :

uses crt;

var a, b, c, d : integer; tb : real;

begin

clrscr;

write('Nhap 4 so : '); readln(a, b, c, d);

tb := (a + b + c + d) / 4;

write('Trung binh cong 4 so : ', tb : 2 : 1);

readln

end.

Câu 8 :

- Giống nhau :

+ Hằng và Biến đều là hai đại lượng lưu trữ giá trị

+ Hằng và Biến đều phải được khai báo trước khi sử dụng

- Khác nhau :

- Khác về cách khai báo :

+ Khai báo biến: Var <danh sách biến> : <kiểu dữ liệu>;

+ Khai báo hằng: Const <tên hằng> = <giá trị hằng>;

- Khác nhau về cách lưu trữ giữ liệu :

+ Giá trị Hằng không thay đổi trong quá trình thực hiện chương trình

+ Giá trị Biến thay đổi trong quá trình thực hiện chương trình

Câu 6,7,8 trong ảnh 

Câu 6 = Bài 1

Câu 7 = Bài 2

Câu 8 = bài 3

$\text{Tham khảo trong ảnh}$