Bài 1. Viết chương trình nhập vào bôn số nguyên từ bàn phím rồi xuất ra màn hình tổng, tích và trung bình cộng của ba số đó. Bài 2. Viết chương trình nhập vào ba số nguyên a,b, h theo thứ tự là độ dài hai đáy và chiều cao của một hình thang. Rồi xuất ra màn hình diện tích của hình thang đó. Bài 3: Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử dụng hai biến. Bài 4. Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được sử dụng hai biến. Bài 5. Viết chương trình nhập hai số, đổi giá trị hai số rồi in ra hai số.

Bài 1:

uses crt;

var a,b,c,d: integer;

begin

clrscr;

writeln('Nhap so thu nhat'); readln(a);

writeln('Nhap so thu hai); readln(b);

writeln('Nhap so thu ba'); readln(c);

writeln('Nhap so thu tu'); readln(d);

readln

end.

Bài 2:

uses crt;

var a,b,h: integer;

            S: real;

begin

clrscr;

wrileln('Nhap day be'); readln(a);

writeln('Nhap day lon'); readln(b);

writeln('Nhap chieu cao'); readln(h);

S:=(a+b)*h/2;

writeln('Dien tich hinh thang la:',S);

readln

end.

Bài 3:

uses crt;

var s,a: real;

begin

Clrscr;

S:=0;

writeln('Nhap so thu nhat:');readln(a); S:=S+a;

writeln('Nhap so thu hai:');readln(b); S:= S+a;

writeln('Nhap so thu ba:');readln(c); S:=S+a;

writeln('Nhap so thu tu:');readln(d); S:=S+a;

writeln('Trung binh cong: ',S/4:10:2);

readln

end.

Bài 4:

uses crt;
var a,b:real; 
begin

S:=0;

writeln('Nhap so thu nhat:');readln(a); S:=S*a;

writeln('Nhap so thu hai:');readln(b); S:= S*a;

writeln('Nhap so thu ba:');readln(c); S:=S*a;

writeln('Nhap so thu tu:');readln(d); S:=S*a;

writeln('Trung binh nhan: ',S/4:10:2);

readln

end.

Bài 5:

uses crt;
var a,b,TG: integer;
begin
write('Nhap so a='); read(a);
write('Nhap so b='); read(b);
TG := a;
a :=b;
b :=TG;
writeln('Sau khi doi a=',a);
writeln('Sau khi doi b=',b);
readln
end.
nhớ vote nha

Bài 1:

uses crt;

var a,b,c,d: integer;

begin

clrscr;

writeln('Nhap so thu nhat'); readln(a);

writeln('Nhap so thu hai); readln(b);

writeln('Nhap so thu ba'); readln(c);

writeln('Nhap so thu tu'); readln(d);

readln

end.

Bài 2:

uses crt;

var a,b,h: integer;

            S: real;

begin

clrscr;

wrileln('Nhap day be'); readln(a);

writeln('Nhap day lon'); readln(b);

writeln('Nhap chieu cao'); readln(h);

S:=(a+b)*h/2;

writeln('Dien tich hinh thang la:',S);

readln

end.

Bài 3:

uses crt;

var s,a: real;

begin

Clrscr;

S:=0;

writeln('Nhap so thu nhat:');readln(a); S:=S+a;

writeln('Nhap so thu hai:');readln(b); S:= S+a;

writeln('Nhap so thu ba:');readln(c); S:=S+a;

writeln('Nhap so thu tu:');readln(d); S:=S+a;

writeln('Trung binh cong: ',S/4:10:2);

readln

end.

Bài 4:

uses crt;
var a,b:real; 
begin

S:=0;

writeln('Nhap so thu nhat:');readln(a); S:=S*a;

writeln('Nhap so thu hai:');readln(b); S:= S*a;

writeln('Nhap so thu ba:');readln(c); S:=S*a;

writeln('Nhap so thu tu:');readln(d); S:=S*a;

writeln('Trung binh nhan: ',S/4:10:2);

readln

end.

Bài 5:

uses crt;
var a,b,TG: integer;
begin
write('Nhap so a='); read(a);
write('Nhap so b='); read(b);
TG := a;
a :=b;
b :=TG;
writeln('Sau khi doi a=',a);
writeln('Sau khi doi b=',b);
readln
end.