program SumOfOdd;

var

     i, sum: integer;

begin

     sum := 0;

     for i := 5 to 100 do

           if odd(i) then

               sum := sum + i;

     writeln('Tổng các số lẻ từ 5 đến 100 là: ', sum);

end.

#include <bits/stdc++.h>

using namespace std;

int main()

int n,dv;

{

cin>>n;

dv=n%10;

if (dv%2==0) cout<<"YES";

else cout<<"NO";

return 0;

}

var n: integer;

t: longint;

Begin

write('Nhap n: '); readln(n);

t:=n;

while n<>0 do

begin

write('Nhap n: '); readln(n);

t:=t+n;

end;

write('Ket qua la: ',t);

readln

end.

:(

Var P, N, i: Integer;

Begin

       Write('Nhap N: ');

       ReadLn(N);

       P := 1;

       For i := 1 To N Do

              P := P * (1/i);

       Writeln('Tich cua P la: ', P);

End.

program SoChanLe;

var

n, i, Tong: integer;

begin

writeln('Nhap so nguyen n:');

readln(n);

Tong := 0;

for i:=1 to n-1 do

begin

if (n mod 2 = 0) then

begin

if (i mod 2 = 0) then

Tong := Tong + i;

end

else

begin

if (i mod 2 = 1) then

Tong := Tong + i;

end; 

end;

writeln('Tong cac so chan nho hon n: ', Tong);

readln;

end.

program TongN;

var

n, i, Tong: integer;

begin

writeln('Nhap so nguyen n:');

readln(n);

while(n<5) or (n>15) do

begin

writeln('Vui long nhap n nam trong khoang 5-15');

readln(n);

end;

Tong := 0;

for i:=1 to n do

Tong := Tong + i;

writeln('Tong cac so tu 1 den n: ', Tong);

readln;

end.

Program ........... ;
Uses crt;
Var
N,i : word;
F, F1, F2 : word;
Begin
Clrscr;
Repeat
Writeln('Tim so hang thu N cua day Fibonaxi, Nĩ='));
Readln(N);
If N<=2 then writeln(’Moi nhap lai !');
Until N>2 F1:= 1 F2:= 2 for i:= 3 to N do
Begin
F := F1 + F2;
Fl := F2;
F2 := F;
End;
Writeln('So fibonaxi thu', N: 5, ' la ’, F: 10);
Readln;
End.