Bài 40:

Program bai_giai;
uses crt;
var n:longint;
procedure xuly(k:longint);
var max,dem,a:byte;
begin
    max:=0; dem:=0;
    while k<>0 do
        begin
            a:=k mod 10;
            if (a mod 2=0) and (a>max) then
                begin
                    max:=a;
                    dem:=0;
                end;
            if a=max then dem:=dem+1;
            k:=k div 10;
        end;
    write(max,' ',dem);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    xuly(n);
    readln;
END.

Bài 41:

Program bai_giai;
uses crt;
var n:longint;
procedure xuly(k:longint);
var max,vt,d,a:byte;
begin
    max:=k mod 10; d:=0; vt:=0;
    while k<>0 do
        begin
            a:=k mod 10;
            if a>max then
                begin
                    max:=a; vt:=d;
                end;
            d:=d+1;
            k:=k div 10;
        end;
    write(max,' ',vt);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    xuly(n);
    readln;
END.

Bài 42:

Program bai_giai;
uses crt;
var n:longint;
function vitri_min(k:longint):byte;
var min,vt,d,a:byte;
begin
    min:=9; vt:=0; d:=0;
    while k<>0 do
        begin
            a:=k mod 10;
            if (a<>0) and (a<min) then
                begin
                    min:=a; vt:=d;
                end;
            d:=d+1;
            k:=k div 10;
        end;
    exit(vt);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(vitri_min(n));
    readln;
END.

Bài 43:

Program bai_giai;
uses crt;
var n:longint;
procedure phan_tich(k:longint);
var i:longint;
begin
    while k mod 2=0 do
        begin
            write(2);
            k:=k div 2;
            if k<>1 then write('*');
        end;
    i:=3;
    while k<>1 do
        begin
            while k mod i=0 do
                begin
                    write(i);
                    k:=k div i;
                    if k<>1 then write('*');
                end;
            i:=i+2;
        end;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    phan_tich(n);
    readln;
END.