Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Bangtan Bàngtán Bất Bình...

viết chương trình pascal tính tổng các số từ 1 đến n, n nhập từ bàn phím, sử dụng biến mảng

『ღƤℓαէїŋʉɱ ₣їɾεツ』
11 tháng 6 2020 lúc 22:19

Uses crt;

Var

S,i,n:Integer;

a:array[1..100] of integer;

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Tấn Trọng Huỳnh
Xem chi tiết
Tấn Trọng Huỳnh
Xem chi tiết
Uchiha Sasuke
Xem chi tiết
nfgbjhfbvbv
Xem chi tiết
Uchiha Sasuke
Xem chi tiết
Nguyễn Phạm Như Quỳnh
Xem chi tiết
Phạm Thị Đông Nhi_HDI
Xem chi tiết
Huy Tran
Xem chi tiết
Nguyễn Đăng Quang
Xem chi tiết