1. Viết chương trình in ra màn hình 5 chữ Xin chào. và 5 chữ Tôi là Pascal. 2. Viết chương trình tính tổng từ 1 - 50. 3. Viết chương trình tính tích từ 1 - 10 4. Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/9 5. Viết chương trình tính dãy số thập phân từ 1+1/3+1/5+1/7+1/9. Hướng dẫn: For i:=1 to 9 do if i mod 2 <> 0 then Tong := Tong + 1/i; 6. Viết chương trình tính dãy số thập phân từ 1+1/2+1/4+1/6+1/8. 7. Nhập vào 1 số nguyên n . In ra tổng các số từ 1 - n 8. Viết chương trình nhập vào từ bàn phím số nguyên dương n, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 dến n, sau đó in ra màn hình. Gợi ý: Cũng giống như bài tính tổng các số từ 1 đến n, nhưng ta phải sử thêm câu điều kiện IF và phép chia lấy phần dư. - Nhập n; - Từ giá trị trên của n hãy viết vòng lặp với giá trị i chạy từ 1 đến n. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu i là số chẵn thì tính tổng. 9. Ta kí hiệu n! là tích n số tự nhiên đầu tiên: n! = 1.2.3...n. Viết chương trình tính n! với n là số tự nhiên được nhập vào từ bàn phím. Hướng dẫn: - Nhập n; - Tich:=1; - For i:=1 to n do Tich:=Tich*i; 10.Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n, m là các số nguyên dương nhập vào từ bàn phím. Gợi ý: - Nhập n, m; - Vòng lặp For với giá trị i chạy từ n đến m. 11.Viết chương trình tính tổng bình phương các số tự nhiên từ 1 đến n, biết giá trị của n được nhập vào từ bàn phím Gợi ý: Cũng giống như bài tính tổng các số từ 1 đến n, ta thực hiện các bước sau: - Em hãy viết chương trình xuất ra thông báo giới thiệu tện chương trình và yêu cầu người sử dụng nhập giá trị của n, đọc giá trị của n - Từ giá trị trên của n hãy viết vòng lặp để tính tổng bình phương của các số tự nhiên theo cú pháp: tổng = tổng + i*i (Với i chạy từ 1 đến N). 12. Viết chương trình xuất ra các bội số của B trong phạm vi từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím Gợi ý: Cách làm tương tự bài trên - Em hãy viết chương trình xuất ra thông báo giới thiệu tên chương trình và yêu cầu người sử dụng nhập giá trị của B,N; đọc giá trị của B,N - Từ giá trị trên của B, N hãy viết vòng lặp với giá trị i chạy từ B đến N. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu i chia hết cho B thì in giá trị của i ra màn hình. 13. Viết chương trình kiểm tra xem C có phải là số hoàn hảo hay không? Gợi ý: C là số hoàn hảo khi tổng các ước từ 1 đến C-1 bằng chính C. Ví dụ: 6 là số hoàn hảo vì có tổng các ước nhỏ hơn nó bằng chính nó: 1+2+3=6 - Em hãy viết chương trình xuất ra thông báo giới thiệu tên chương trình và yêu cầu người sử dụng nhập giá trị của C, đọc giá trị của C - Từ giá trị trên của C hãy viết vòng lặp với giá trị i chạy từ 1 đến C-1. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu C chia hết cho i thì in tính tổng.

1.

#include <iostream>
using namespace std;
int main() {
    for(int i=0;i<10;i++){
        if(i<5){
            cout<<"Xin chao"<<endl;
        }
        else{
            cout<<"Toi la pascal"<<endl;
        }
    }
    //samon247
    return 0;
}

2.

#include <iostream>
using namespace std;
int main() {
    int S=0;
    for(int i=1;i<=50;i++){
        S+=i;
    }
    cout<<"Tong 1 den 50 la: "<<S;
    //samon247
    return 0;
}

3.

#include <iostream>
using namespace std;
int main() {
    int S=1;
    for(int i=1;i<=10;i++){
        S*=i;
    }
    cout<<"Tong 1 den 10 la: "<<S;
    //samon247
    return 0;
}

4.

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

5.

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

6.

#include <iostream>
using namespace std;
int main() {
    float S=0;
    for(float i=1;i<10;i++){
        if((int)i%2==0){
            S+=1/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++){
        S+=i;
    }
    cout<<S;
    //samon247
    return 0;
}

8.

#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;
}

9.

#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;
}

10.

#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;
}

11.

#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;
}

12.

#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;
}

13.

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

1)

program bai1;

uses crt;

var i:integer;

begin clrscr;

   for i:=1 to 5 do

     begin

        writeln('Xin chao');

        writeln('Toi la Pascal');

     end;

readln;

end.

2)

program bai2;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0;

   for i:=1 to 50 do

     S:=S+i;

   write('Tong tu 1-50 la: ',S);

readln;

end.

3)

program bai3;

uses crt;

var T:integer;

      i:integer;

begin clrscr;

     T:=1;

   for i:=1 to 10 do

     T:=T*i;

   write('Tich tu 1-10 la: ',T);

readln;

end.

4)

program bai4;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0

   for i:=1 to 9 do

     S:=S+1/i;

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

readln;

end.

5)

program bai5;

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.

6)

program bai6;

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.

7)

program bai7;

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.

8)

program bai8;

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.

9)

program bai9;

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.

10)

program bai10;

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.

11)

program bai11;

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.

12)

program bai12;

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.

13)

program ct;

uses crt;

var C,i:integer;

      S:longint;

begin clrscr;

   write('Nhap so C: '); readln(C);

     S:=0;

   for i:=1 to (C-1) do

     if (C mod i=0) then S:=S+i;

   if S=C then writeln(C,' la so hoan hao')

else writeln(C,' khong phai la so hoan hao');

readln;

end.

Học tốt!