In trung bình cộng 100 số chẵn đầu tiên

Question

daohoa · Answer

program TBC;

uses crt;

var i,d: byte;

TBC: real;

Begin

clrscr;

for i:=1 to 100 do

if i mod 2=0 then

begin

inc(d);

TBC:=TBC+i;

end;

write(‘TBC = ‘,TBC/d);

readln

End.

thienthanh · Answer

program trungbinh;

uses crt;

var i,d:byte;

t:longint;

begin

clrscr;

t:=0; i:=0; d:=0;

while d<100 do

begin

i:=i+2;

t:=t+i;

d:=d+1;

end;

write(‘Trung binh cong 100 so chan dau tien la: ‘,t/d:2:2);

readln;

end.

0 bình luận về “In trung bình cộng 100 số chẵn đầu tiên”