Lập trình nhập vào 2 số thực a và b
Tính giá trị tổng và giá trị trung bình của 2 số trên sau đó thông báo ra màn hình

Question

Lập trình nhập vào 2 số thực a và b Tính giá trị tổng và giá trị trung bình của 2 số trên sau đó thông báo ra màn hình

maianhnhi · Answer

Uses crt;

Var a,b,tong, TB: real;

Begin

Clrscr;

Writeln(‘nhap so a’); readln(a);

Writeln(‘nhap so b’); readln(b);

tong:=a+b;

TB:=tong/2; { vì chỉ có 2 phần tử a và b}

Writeln(‘ vạy tong cua bạn la’, tong);

Writeln(‘ vạy TB cua 2 so la’, TB);

Readln;

End.

ngocchau · Answer

program sothuc;

uses crt;

var a,b,t,tb:real;

begin

clrscr;

write(‘Nhap a: ‘); readln(a);

write(‘Nhap b: ‘); readln(b);

t:=a+b;

tb:=(a+b)/2;

writeln(‘Tong la: ‘,t:0:2);

writeln(‘Trung binh la: ‘,tb:0:2);

readln

end.