tính tổng từ 1 đến n pascal không dùng while hay for
2 câu trả lời
uses crt;
var n,i,t:longint;
begin
clrscr;
readln(n);
repeat
begin
t:=t+i;
i:=i+1;
end;
until
i>n;
writeln(t);
readln
end.
program bai_giai;
uses crt;
var n:longint;
begin
clrscr;
write('nhap n:');readln(n);
writeln('s=',(n+1)*n/2:2:0);
readln
end.
Câu hỏi trong lớp
Xem thêm
