Viết chương trình nhập vào số nguyên N, tính và đưa ra màn hình trung bình các số lẻ từ 1 đến N Mình đang cần gấp ạ T-T
2 câu trả lời
program bai_giai;
uses crt;
var dem, i, n,s:longint;tbc:real;
begin
clrscr;
write('nhap n:');readln(n);
dem:=0;
s:=0;
for i:=1 to n do if(i mod 2=1)then
begin
s:=s+i;
inc(dem);
end;
tbc:=s/dem;
write('trung binh cong:=',tbc);
readln
end.
program trungbinh;
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=1 then
begin
s:=s+i;
d:=d+1;
end;
Write(‘Trung binh cong cac so le tu 1 den n la:’ ,s/d);
readln
end.
Câu hỏi trong lớp
Xem thêm
