Tính tổng từ 1 đến n (bằng câu lệnh while do)
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
TY
0
TY
1
Giúp mik với
Program HOC24;
var n,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
i:=1; t:=0;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.