viết chương trình pascal tính trung bình cộng các số chẵn từ 1 đến N (N là số nguyên nhập từ bàn phím)
2 câu trả lời
Program NN;
Uses crt;
Var n,i,s,d: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; d:=0;
For i:=1 to n do
If i mod 2 = 0 then
Begin
inc(d);
s:=s+i;
End;
Write(s/d:0:2);
Readln
End.
uses crt;
var n,i,s,d:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2=0 then
begin
inc(s,i);
inc(d);
end;
writeln('Trung binh cong: ',s/d:0:2);
readln
end.
