Câu a: Viết chương trình Pascal cho phép in ra màn hình giá trị tích các số tự nhiên lẻ từ 1-N, N được nhập từ bàn phím. Câu b: Em hãy viết chương trình Pascal cho phép in ra màn hình giá trị tổng các số tự nhiên chẵn từ 1-N, N được nhập từ bàn phím. Câu f: Em hãy viết chương trình Pascal cho phép in ra màn hình giá trị tích các số tự nhiên từ 1-N, N được nhập từ bàn phím. Câu j: Em hãy viết chương trình Pascal cho phép in ra màn hình giá trị tích các số tự nhiên lẻ từ 1-N, N được nhập từ bàn phím. (P/s: Giúp mình vài câu trong đề cương ôn tập kiểm tra 1 tiết với ạ! Cảm ơn các bạn nhiều ạ!)

a.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n;
    cin>>n;
    for(int i=1;i<=n;i++){
        if (i%2==1){
            cout<<i<<" ";
        }
    }
    //samon247
    return 0;
}

b.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,total=0;
    cin>>n;
    for(int i=1;i<=n;i++){
        if (i%2==0){
            total+=i;
        }
    }
    cout<<total;
    //samon247
    return 0;
}

f.

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

j.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,total=1;
    cin>>n;
    for(int i=1;i<=n;i++){
        if(i%2==1){
            total*=i;
        }
    }
    cout<<total;
    //samon247
    return 0;
}

Câu a, j:

program kiemtra;

uses crt;

var N,i:integer;

      T:longint;

begin clrscr;

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

   T:=0;

   for i:=1 to N do

   If N mod 2<>0 then T:=T*1;

   write('Tich la: ',S);

readln;

end.

Câu f:

program kiemtra;

uses crt;

var N,i:integer;

      T:longint;

begin clrscr;

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

   T:=0;

   for i:=1 to N do

   T:=T*1;

   write('Tich la: ',S);

readln;

end.

Câu b:

program kiemtra;

uses crt;

var N,i:integer;

      S:longint;

begin clrscr;

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

   S:=0;

   for i:=1 to N do

   If N mod 2=0 then S:=S+1;

   write('Tong la: ',S);

readln;

end.

M làm hết lun đó, học tốt!

Cho m câu tlnt nha!