Question

Viết chương trình in ra các số chẵn bé hơn hoặc bằng n, tính số các số và trung bình cộng của các số chẵn vừa tìm được (n là số nguyên nhập từ bàn phím)

(Giúp giùm mình đoạn tính trung bình cộng á, mình cảm ơn nhiều ☺)

Answer 1

1...

program bai;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

write('s= ',s);

readln

end.

Answer 2

program sdvg;

uses crt;

var n,i: integer;

dem, tb: integer;

begin

clrscr;

writeln('Nhap n = '); read(n);

dem:=0;

tb:=0;

for i:= 1 to n do

if i mod 2 = 0 then

begin

dem:=dem+1;

tb:=tb+i;

end;

tb:=tb/dem;

writeln('Co ',dem,'so chan, tbc chung la: ',tb);

readln

end.

Answer 3

Bạn nào giỏi tin giúp giùm mình nha.

Đây là bài 1 tiết của mình, mình là là TBC:=TBC+i/d; mà cũng sai.

Xin cảm ơn trước những ai giúp mình.

@B (Erik)duong nguyenvanTrương Quang DũngHà Ngân HàTú hoc24hoc24NguyễnĐoàn Xuân SơnLuân ĐàNguyen Thi Thanh ThaooNguyễn Thị Bích ThiênhípMinh Hieu Nguyen​bảo nam trầnHISINOMA đặng tuấn đứcKINIMADOĐầu Óc Đen Tối★I Cao Thị Ngọc Anhlove NguyenHoc24★Hoc24.vn✩★✩★✩★✩★