Bài 1 : Viết chương trình tính tổng 1000 số nguyên đầu tiên bắt đầu từ 1 không dùng công thức. Bài 2: Viết chương trình tính tổng 1000 số nguyên chẵn đầu tiên bắt đầu từ 1 không dùng công thức. Bài 3: Viết chương trình nhập vào số tự nhiên N, xét xem số đó có phải là số nguyên tố hay không.

1

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

2

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

3

#include<bits/stdc++.h>
using namespace std;
bool snt(int n)
{
    if(n < 2){
        return false;
    }
    int count = 0;
    for(int i = 2; i <= sqrt(n); i++){
        if(n % i == 0){
            count++;
        }
    }
    if(count == 0){
        return true;
    }
    else
    {
        return false;
    }
}
int main()
{
    int n;
    cin >> n;
    if(snt(n)){
        cout<<n<<" la so nguyen to";
        return 0;
    }
    cout<<n<<" khong phai la so nguyen to";
    //samon247
    return 0;
}

1/

program oken;

var tong,i:integer;

begin

for i:=1 to 1000 do tong:=tong+i;

writeln('tong 1000 so dau tien: ',tong);

end.

2/

program oken;

var tong,i:integer;

begin

for i:=1 to 1000 do if i mod 2=0 then tong:=tong+i;

writeln('tong 1000 so dau tien: ',tong);

end.

3/

program oken31;

uses crt;
var n,i,dem,chan,le,dem2: integer;
    kt:boolean;
begin
        clrscr;
        repeat

                write('nhap so: '); readln(n);
                if n mod 2=0 then
                        chan:=chan+n
                else
                        begin
                                dem2:=dem2+1;
                                le:=le+n;
                        end;
                for i:=2 to (n div 2) do
                        if n mod i =0 then dem :=dem+1;
                     if dem=0 then kt:=true;
                     if (n=0) or (n=1) or (dem>0) then kt:=false;
        until kt=true;
                writeln('tong cac so chan: ',chan);
                writeln('trung binh cong cac so le: ',le/dem2:0:0);
        readln;
end.