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)

Lời giải:

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.