Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
LongHoang
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 21:40

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

writeln(t);

readln;

end.


Các câu hỏi tương tự
Phương
Xem chi tiết
Biên Vi
Xem chi tiết
Đào Thị Thùy Dương
Xem chi tiết
Khanh Ngoc
Xem chi tiết
My Orion
Xem chi tiết
Chi Khánh
Xem chi tiết
Nguyễn Phương
Xem chi tiết
Ung Tấn Thảo
Xem chi tiết
Khoa Tôn
Xem chi tiết
Tất Nguyễn Hữu
Xem chi tiết