viết chương trình pascal tính trung bình cộng các số lẻ từ 1 đến N (N là số nguyên nhập từ bàn phím)
2 câu trả lời
uses crt;
var n,i,s,d:longint;
begin
clrscr;
write('Nhap n: '); read(n);
for i:=1 to n do
if i mod 2=1 then
begin
inc(s,i);
inc(d);
end;
writeln('TBC: ',s/d:0:2);
readln
end.
uses crt;
var i, n, s, d : integer;
begin
clrscr;
write('nhap so n : ');readln(n);
s := 0; d := 0;
for i := 1 to n do
if i mod 2 <> 0 then
begin
s := s + i;
d := d + 1;
end;
writeln('tb = ', s / d);
readln
end.
