Question

Viết chương trình nhập vào từ bàn phím ba soosa, b, c . Tính tổng, tính trung bình ba số đó

mọi người giúp e với ạ

e đang cần gấp để thi

Answer 1

program tinh_tong_tb;

uses crt;

var a,b,c,tong,tb:real;

begin

clrscr;

write('nhap so a'); readln(a);

write('nhap so b'); readln(b);

write('nhap so c'); readln(c);

tong:=a+b+c;

tb:=(a+b+c)/3;

write('tong 3 so la',tong);

write('trung binh 3 so la',tb);

readln

end.

Answer 2

var a,b,c,t,tb:real;

begin

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

t:=a+b+c;

tb:=(a+b+c)/3;

writeln(' Tong 3 so tren la: ',t);

writeln(' Trung binh 3 so tren la: ',tb);

readln;

end.