- Xác định bài toán:
INPUT: 3 số nguyên x, y, z
OUTPUT: Trung bình cộng của 3 số đó
- Mô tả thuật toán:
Bước 1: Nhập 3 số nguyên x, y, z từ bàn phím
Bước 2: tbc <- (x + y + z) / 3;
Bước 3: Xuất tbc ra màn hình
- Chương trình:
Program BT;
Uses crt;
Var x, y, z: integer;
tbc: real;
Begin
Clrscr;
Write('Nhap 3 so x, y, z: '); Readln(x, y, z);
tbc := (x + y + z) / 3;
Write('TBC = ', tbc : 0 : 1);
Readln
End.