-Viết phương trình tính tổng S=1+2+3+...+100 -Gõ chương trình vào máy tính: +Lưu chương trình +Thực hiện chương trình +Dùng chương trình để giải các bài toán sau : S=1+2+3+...+N , S=1+3+...+N , S=2+4+...+N

S=1+2+3+...+100:

uses crt;
var i,s:longint;
begin
clrscr;
   for i:=1 to 100 do inc(s,i);
   writeln(s);
readln
end.

S=1+2+3+...+n:

uses crt;
var n,i,s:longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do inc(s,i);
   writeln(s);
readln
end.

S=1+3+...+n:

uses crt;
var n,i,s:longint;
begin
clrscr;
   readln(n);
   i:=1;
   while i<=n do 
      begin
         inc(s,i);
         inc(i,2);
      end;
   writeln(s);
readln
end.

S=2+4+...+n:

uses crt;
var n,i,s:longint;
begin
clrscr;
   readln(n);
   i:=2;
   while i<=n do 
      begin
         inc(s,i);
         inc(i,2);
      end;
   writeln(s);
readln
end.

S=1+2+3+...+N

uses crt;
var s,n,i:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   s:=0;
   for i:=1 to n do s:=s+i;
   Writeln('S= ',s);
readln
end.   

S=1+3+...+N

uses crt;
var s,n,i:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   s:=0;
   for i:=1 to n do if i mod 2=1 then s:=s+i;
   Writeln('S= ',s);
readln
end.   

S=2+4+...+N

uses crt;
var s,n,i:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   s:=0;
   for i:=1 to n do if i mod 2=0 then s:=s+i;
   Writeln('S= ',s);
readln
end.