Tin học [Tin10]Hỏi bài về chương trình

var
n,s,i:longint;
begin
s:=0;
write('N:');readln(n);
for i:=2 to n do if  i mod  2 = 0 then s:=s+i;
write('Tong:',s);
readln;
end.

var
n,i:longint;
begin
write('N:');readln(n);
for i:=3 to n do if  i mod  3 = 0 then write(i,' ');
readln;
end.

#include <iostream>
using namespace std;
 
int main()
{
    int n;
    cout << "Nhap so n: ";
    cin >> n;s=0;
    for (int i = 1; i <= n; i++) {
        if (i % 2 == 0) {
            S=s+i;
        }
    }
    Cout <<"ket qua:"<<s;
    return 0;
}

#include <iostream>
using namespace std;
 
int main()
{
    int a;
    int b;
    cout << "Nhap a = ";
    cin >> a;
    cout << "Nhap b = ";
    cin >> b;
    if(a == 0) {
        if (b == 0) {
            cout << "Phuong trinh vo so nghiem" << endl;}
         else {
            cout << "Phuong trinh vo nghiem" << endl;}
    } else {
        X= -b/a;
        cout << "Phuong trinh co nghiem la: " << x << endl;
    }
    return 0;
}

#include <iostream>
using namespace std;
 
int main()
{
    int n;
    cout << "Nhap so n: ";
    cin >> n;
    for (int i = 1; i <= n; i++) {
        if (i % 3 == 0) {
            cout << " " << i;
        }
    }
    return 0;
}