#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"La so chan";

else cout<<"La so le";

return 0;

}

- Thuật toán chương trình:

   Bước 1: Nhập một số tự nhiên n và một biến d;

   Bước 2: Gán giá d=n mod 2;

   Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;

   Bước 4. Kết thúc thuật toán;

- Chương trình Pascal:

- Kết quả:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

a: Input: Số a

Output: Kiểm tra xem a là số chẵn hay lẻ

b: 

Bước 1: Nhập a

Bước 2: Nếu a chia hết cho 2 thì xuất a là số chẵn

không thì a là số lẻ

Bước 3: Kết thúc

c: 

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if a mod 2=0 then write('a la so chan')

else write('a la so le');

readln;

end.

program bai1;

uses crt;

var a,b,c,s: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

s:=a+b+c;

writeln('tong ba so a,b,c =',s:4:2);

readln;

end.

program bai1;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n mod 2 = 0 then

writeln('la so chan ') else

writeln('la so le ');

readln;

end.

bài 3 :

B1: S <- 0 ; i<-0;

B2: i<- i+1;

B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.

- Bài này mình viết ở ngôn ngữ C++

- Chương trình :

#include<iostream> 

using namespace std; 

int main() { 

int g = 0; 

for (int i = 100; i <= 1000; i++) {

if (i % 2 == 0) { 

g += i;

 } 

}

cout << g; 

return 0; 

}