Viết chương trình tính tổng dãy sốđược cho như sau: S=1+2+3+4+5+6+...+n, với n là sốtựnhiên được nhập từbàn phím(n<10). ai giúp em vs ạ

2 câu trả lời

program oken;

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('S=',s);

readln;

end.

Program BTH;
uses crt;
var n,s,i:byte;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        s:=0;
        For i:=1 to n do s:=s+i;
        writeln('Tong la: ',s);
        readln
end.