Xác định bài toán : Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử dụng hai biến 22/08/2021 Bởi Alaia Xác định bài toán : Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử dụng hai biến
Program TB_Cong_4_So; uses crt; Var s,a: real; Begin Clrscr; S:=0; Write(‘Nhap so thu nhat:’);readln(a); S:=S+a; Write(‘Nhap so thu hai:’);readln(a); S:= S+a; Write(‘Nhap so thu ba:’);readln(a); S:=S+a; Write(‘Nhap so thu tu:’);readln(a); S:=S+a; Writeln(‘Trung binh cong: ‘,S/4:10:2); readln end. Bình luận
var a,b,c,d,s:longint; begin write(‘Nhap so: ‘); readln(a); write(‘Nhap so: ‘); readln(b); write(‘Nhap so: ‘); readln(c); write(‘Nhap so: ‘); readln(d); s:=(a+b+c+d)/4; write(‘Trung binh cong la: ‘,s:0:5); readln; end. Bình luận
Program TB_Cong_4_So;
uses crt;
Var s,a: real;
Begin
Clrscr;
S:=0;
Write(‘Nhap so thu nhat:’);readln(a); S:=S+a;
Write(‘Nhap so thu hai:’);readln(a); S:= S+a;
Write(‘Nhap so thu ba:’);readln(a); S:=S+a;
Write(‘Nhap so thu tu:’);readln(a); S:=S+a;
Writeln(‘Trung binh cong: ‘,S/4:10:2);
readln
end.
var a,b,c,d,s:longint;
begin
write(‘Nhap so: ‘); readln(a);
write(‘Nhap so: ‘); readln(b);
write(‘Nhap so: ‘); readln(c);
write(‘Nhap so: ‘); readln(d);
s:=(a+b+c+d)/4;
write(‘Trung binh cong la: ‘,s:0:5);
readln;
end.