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.