pas cau 8
var
i,n:integer;
s:longint;
begin
writeln('nhapn');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
write('tongla:',s);
readln;
end.
Bạn đang đọc truyện trên: Truyen247.Pro
var
i,n:integer;
s:longint;
begin
writeln('nhapn');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
write('tongla:',s);
readln;
end.
Bạn đang đọc truyện trên: Truyen247.Pro