-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á

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.