Cấu trúc rẽ nhánh và lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
darkknight

Viết chương trình tính va xuất ra TBC từ 1 - N ( N là số nhập từ bàn phím).

Minh Lệ
27 tháng 2 2021 lúc 17:13

Program HOC24;

var i,n: integer;

t: real;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do t:=t+i;

write('Trung binh cong tu 1 den ',n,' la: ',t/n:1:2);

readln

end.

Nguyễn Lê Phước Thịnh
27 tháng 2 2021 lúc 18:46

uses crt;

var i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  t:=t+i;

writeln(t/n:4:2);

readln;

end.


Các câu hỏi tương tự
phươngplayergamer
Xem chi tiết
Hạ Nhật
Xem chi tiết
Vũ Ngọc Lan
Xem chi tiết
Machunsu
Xem chi tiết
phạm hương trà
Xem chi tiết
Huyền Nguyễn
Xem chi tiết
chương nguyễn
Xem chi tiết
Nguyễn Ngô Hồng Anh
Xem chi tiết
Nguyễn Quang Thụy
Xem chi tiết