1.

program b1;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0;

   for i:=1 to 100 do

     S:=S+i;

   write('Tong tu 1 den 100 la: ',S);

readln;

end.

2.

program b2;

uses crt;

var T:integer;

      i:integer;

begin clrscr;

     T:=1;

   for i:=1 to 50 do

     T:=T*i;

   write('Tich tu 1 den 50 la: ',T);

readln;

end.

3.

program b3;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0

   for i:=1 to n do

     S:=S+1/i;

   write('Tong day so la: ',S);

readln;

end.

4.

program b4;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0

   for i:=1 to 9 do

     if i mod 2<>0 then

     S:=S+1/i;

   write('Tong day so la: ',S);

readln;

end.

5.

program b5;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0

   for i:=1 to 8 do

     if i mod 2=0 then

     S:=S+1/i;

   write('Tong day so la: ',S);

readln;

end.

6.

program b6;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     S:=S+i;

   write('Tong la: ',S);

readln;

end.

7.

program b7;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     if i mod 2=0 then

     S:=S+i;

   write('Tong la: ',S);

readln;

end.

8.

program b8;

uses crt;

var T:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     T:=1;

   for i:=1 to n do

     T:=T*i;

   write('n! la: ',T);

readln;

end.

9.

program b9;

uses crt;

var S:integer;

      i,n,m:integer;

begin clrscr;

   writeln('Nhap  n va m: '); readln(n,m);

     S:=0;

   for i:=n to m do

     S:=S+i;

   write('Tong la: ',S);

readln;

end.

10.

program b10;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     S:=S+i*i;

   write('Tong la: ',S);

readln;

end.

11.

program b11;

uses crt;

var b:integer;

      i,n,B:integer;

begin clrscr;

   writeln('Nhap so n va B: '); readln(n,B);

     b:=0;

   for i:=B to n do

     if i mod B=0 then

   write('Boi cua B la: ',b);

readln;

end.

Học tốt!

1.

#include <iostream>
using namespace std;
int main() {
    int s=0;
    for(int i=1;i<=500;i++){
        s+=i;
    }
    cout<<s;
    //samon247
    return 0;
}

2.

#include <iostream>
using namespace std;
int main(){
    double s=1;
    for(double i=1;i<=50;i++){
        s*=i;
    }
    cout<<s;
    //samon247
    return 0;
}

3.

#include <iostream>
using namespace std;
int main(){
    float n,s=0;
    cin>>n;
    for(float i=1;i<=n;i++){
        s+=1/i;
    }
    cout<<s;
    //samon247
    return 0;
}

4.

#include <iostream>
using namespace std;
int main(){
    float s=0;
    for(float i=1;i<=9;i++){
        if((int)i%2==1){
            s+=1/i;
        }
    }
    cout<<s;
    //samon247
    return 0;
}

5.

#include <iostream>
using namespace std;
int main(){
    float s=0;
    for(float i=1;i<=9;i++){
        if((int)i%2==0){
            s+=1/i;
        }
    }
    cout<<s;
    //samon247
    return 0;
}

6.

#include <iostream>
using namespace std;
int main() {
    int n,S=0;
    cin>>n;
    for(float i=1;i<n;i++){
        S+=i;
    }
    cout<<S;
    //samon247
    return 0;
}

7.

#include <iostream>
using namespace std;
int main() {
    int n,S=0;
    cin>>n;
    for(float i=1;i<n;i++){
        if((int)i%2==0){
            S+=i;
        }
    }
    cout<<S;
    //samon247
    return 0;
}

8.

#include <iostream>
using namespace std;
int main() {
    int s=1,n;
    cin>>n;
    for(int i=1;i<=n;i++){
        s*=i;
    }
    cout<<s;
    //samon247
    return 0;
}

9.

#include <iostream>
using namespace std;
int main() {
    int s=0,m,n;
    cin>>m>>n;
    for(;m<=n;m++){
        s+=m;
    }
    cout<<s;
    //samon247
    return 0;
}

10.

#include <iostream>
using namespace std;
int main() {
    int s=0,n;
    cin>>n;
    for(int i=1;i<=n;i++){
        s+=i*i;
    }
    cout<<s;
    //samon247
    return 0;
}

11.

#include <iostream>
using namespace std;
int main() {
    int B,n;
    cin>>B>>n;
    for(int i=1;i<=n;i++){
        if(i%B==0){
            cout<<i<<" ";
        }
    }
    //samon247
    return 0;
}