*Xác định bài toán:

- INPUT: 3 số nguyên x,y,z

-OUTPUT: kết quả trung bình cộng của 3 số nguyên

*Thuật toán:

B1: Nhập x,y,z

B2: x <- 2

B3: y <- 7

B4: z <- 5

B5: tính ( x+y+z):3

B6: Xuất x,y,z và kết thúc

*Chương trình:

Program trung_binh_cong;

Var x,y,z: real;

Begin

Readln ( x,y,z );

x:= 2;

y:= 7;

z:= 5;

Writeln ((x+y+z)/3);

Readln;

End.

#NO COPY

#xinctlhn

#chucbanhoctot^^

#TTLD Shinichi Kudou#

~~~~~~~~~~Munz~~~~~~~~~~

- 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.