program doc_so;
var
  so, chuc, donvi: integer;
begin
  write('Nhap vao mot so nguyen duong co 2 chu so: ');
  readln(so);
  if (so < 10) or (so > 99) then
    writeln('So khong hop le')
  else
    begin
      chuc := so div 10;
      donvi := so mod 10;
      case chuc of
        1: 
          case donvi of
            0: writeln('Muoi');
            1: writeln('Muoi mot');
            2: writeln('Muoi hai');
            3: writeln('Muoi ba');
            4: writeln('Muoi bon');
            5: writeln('Muoi lam');
            6: writeln('Muoi sau');
            7: writeln('Muoi bay');
            8: writeln('Muoi tam');
            9: writeln('Muoi chin');
          end;
        2: write('Hai muoi');
        3: write('Ba muoi');
        4: write('Bon muoi');
        5: write('Nam muoi');
        6: write('Sau muoi');
        7: write('Bay muoi');
        8: write('Tam muoi');
        9: write('Chin muoi');
      end;
      if (chuc <> 1) and (donvi > 0) then 
        begin
          write(' ');
          case donvi of
            1: writeln('mot');
            2: writeln('hai');
            3: writeln('ba');
            4: writeln('bon');
            5: writeln('nam');
            6: writeln('sau');
            7: writeln('bay');
            8: writeln('tam');
            9: writeln('chin');
          end;
        end;
    end;
  readln;
end.

program Doc_so;

var

     n: integer;

begin

     write('Nhap mot so nguyen duong to da 2 chu so: ');

     readln(n);

     if n < 10 then

          writeln('So ', n, ' doc la: muoi ', n)

     else if (n >= 10) and (n < 20) then

          writeln('So ', n, ' doc la: muoi ', n mod 10)

     else if (n >= 20) and (n < 100) then

          begin

               case n div 10 of

                    2: write('Hai');

                    3: write('Ba');

                    4: write('Bon');

                    5: write('Nam');

                    6: write('Sau');

                    7: write('Bay');

                    8: write('Tam');

                    9: write('Chin');

               end;

               write(' muoi ');

               case n mod 10 of

                    1: writeln('mot');

                    2: writeln('hai');

                    3: writeln('ba');

                    4: writeln('bon');

                    5: writeln('lam');

                    6: writeln('sau');

                    7: writeln('bay');

                    8: writeln('tam');

                    9: writeln('chin');

               end;

          end

     else

          writeln('Khong nhap dung gia tri so nguyen duong to da 2 chu so.');

end.

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do if i mod 2=0 then s:=s+i;

write('S = ',s);

readln

end.

pascal

program sum_of_evens;

var
  i, n, sum: integer;

begin
  write('Enter a positive integer: ');
  readln(n);
  
  sum := 0;
  
  for i := 2 to n step 2 do
  begin
    sum := sum + i;
  end;
  
  writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.

câu 1

Program Nguyen_to;

Var n,i:integer;

Function NT(n:integer):Boolean;

Var ok: Boolean;

i: integer;

Begin ok:=true;

for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;

if n < 2 then NT:=false else NT:=ok;

End;

Begin Write('Nhap n: ');

Readln(n); i:=n;

Repeat i:=i+1;

Until NT(i);

Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);

Readln End.

câu 2

uses crt;

const so: set of char=['0','1','2','3','4','5','6','7','8','9'];

var a:array[1..100] of integer;

st,b:string;

c,l,i,n,j:integer;

s, Max: integer;

begin clrscr;

write('Nhap xau:');

readln(st);

l:=length(st);

i:=1;

n:=0;

repeat if (st[i] in so) then begin b:=''

repeat b:=b+st[i];

inc(i);

until (not(st[i] in so)) or (i>l);

inc(n);

val(b,a[n],c);

end;

inc(i);

until i>l;

Max:=a[1];

for i:=2 to n do If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

readln;

end.

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[10],i;

bool kt;

int main()

{

for (i=1; i<=10; i++) cin>>a[i];

kt=true;

for (i=1; i<=9; i++) if (a[i]>a[i+1]) kt=false;

if (kt==true) cout<<"YES";

else cout<<"NO";

return 0;

}

Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé

Câu 1: 

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=1;

for i:=1 to n do

 s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

Câu 3: 

uses crt;

var n:integer;

st:string;

begin

clrscr;

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

str(n,st);

writeln('So ',n,' co ',length(st),' chu so');

readln;

end.

uses crt;

var n,i,d,x,j,tam:longint;

a:array[1..11]of integer;

st:string;

begin

clrscr;

repeat

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

until n>0;

str(n,st);

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],a[i],x);

end;

for i:=1 to d-1 do 

  for j:=i+1 to d do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to d do 

  write(a[i]);

readln;

end.

uses crt;var n: longint;    chrn: string;    valn,sum,max,i,preperror: byte;begin    write('Nhap so can kiem tra: ');    readln(n);    str(n,chrn);    for i:=1 to length(chrn) do    begin        val(chrn[i],valn,preperror);        sum:=sum+valn;        if max<valn then max:=valn;        valn:=0    end;    writeln('Ket qua: ');    writeln(length(chrn));    writeln(sum);    write(max);    readln;end.uses crt;var n: longint;    chrn: string;    valn,sum,max,i,preperror: byte;begin    write('Nhap so can kiem tra: ');    readln(n);    str(n,chrn);    for i:=1 to length(chrn) do    begin        val(chrn[i],valn,preperror);        sum:=sum+valn;        if max<valn then max:=valn;        valn:=0    end;    writeln('Ket qua: ');    writeln(length(chrn));    writeln(sum);    write(max);    readln;end.

Program HOC24;

var N:longint;

max,tg,t,d: integer;

Begin

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

max:=0;

while n<>0 do

begin

tg:=n mod 10;

d:=d+1;

t:=t+tg;

if tg>max then max:=tg;

n:=n div 10;

end;

writeln('So nguyen N co ',d,' chu so');

writeln('Tong cac chu so cua N la : ',t);

write('Chu so lon nhat cua N la :',max);

readln

end.

uses crt;

var n,d,i,t,max,x:longint;

y:integer;

st:string;

begin

clrscr;

repeat

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

until n>0;

str(n,st);

d:=length(st);

writeln('So chu so cua ',n,' la: ',d);

t:=0;

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

if max<x then max:=x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

writeln('Chu so lon nhat cua ',n,' la: ',max);

readln;

end.

Mình dùng C++ nên div = /; mod = % nha bn!

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
    S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}

Chúc bn học tốt!