Question

Viết chương trình nhập vào 3 số nguyên x, y, z. tính trung bình cộng của 3 số trên và in kết quả ra màn hình.

help me, please!

Answer 1

Program tinhtbcong;

Uses CRT;

Var a,b,c: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('Trung binh cong cua ba so la:',(a+b+c)/3);

Readln;

End.

Answer 2

uses crt;

var x,y,z:integer;

tbc:real;

begin

clrscr;

write('x='); readln(x);

write('y='); readln(y);

write('z='); readln(z);

tbc:=(x+y+z)/3;

writeln('tbc=',tbc:5:2