VIết chương trình tính tổng :S=1+2+3....+n.trong đón là số nguyên nhập từ bàn phím
2 câu trả lời
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong la:',s);
readln
end.
program Tin_hoc;
uses crt;
var i,s,n:integer;
begin
clrscr;
writeln('Nhap n:');readln(n);
s:=0;
for i:= 1 to n do s:=s+i
writeln('S=',s);
readln;
end.