Окытушы окушыларға 10 танбадан тұратын мәтiндi компьютерле теру тапсырмасын бердi. Оқушы мәтiндi куаты 9 танбадан тұратын алфавитпен тердi, ал Болат куаты 256 танба болатын алфавитпен терді. Екі түрлі алфавитпен жазылган акпарат келемiн аныктаныз және ерекшелiгiн түсiндiрiнiз. Акпарат келемі:

 program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
   var i,x,y,z, dwa,tri,shetire,pati:Integer;
begin 
 Writeln('student Fediya='); 
 Readln(i); 
 Writeln('student Sungat=');
  readln(x);
  Writeln('student Alex='); 
 readln(y); 
Writeln('student Halif='); 
Readln(z); 
 case i of 
 2: Inc(dwa); 
  3: Inc(tri); 
 4: Inc(shetire); 
  5: Inc(pati); 
 end; 
 begin
    case x of 
 2: Inc(dwa); 
  3: Inc(tri);
   4: Inc(shetire);
   5: Inc(pati);
  end;
  end;
   begin
     case y of 
  2: Inc(dwa);
   3: Inc(tri); 
 4: Inc(shetire);   
5: Inc(pati); 
 end;   end; 
  begin     
 case z of   
2: Inc(dwa); 
 3: Inc(tri);  
4: Inc(shetire);   
5: Inc(pati);   
end;   
 end;
 WriteLn(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);
 ReadLn;
    { TODO -oUser -cConsole Main : Insert code here }end.

Program factors;
var
num, sum : word;
st : string;
j : byte;

function fact(a : byte) : word;
var
res : word;
i : byte;
begin
res:=1;
for i:=1 to a do
res := res*i;

writeln(a, '!=', res);

fact := res;
end;

function vl(a : char) : byte;
var
res : byte;
begin
val(a, res);
vl := res;
end;

begin
write('Введите число: ');
readln (num);
str(num, st);
sum:=0;
for j:=1 to length(st) do
sum := sum + fact(vl(st[j]));
writeln('Сумма факториалов цифр числа равна: ', sum);
end.

Тестовый прогон программы:

Введите число: 125
1!=1
2!=2
5!=120
Сумма факториалов цифр числа равна: 123