Что бы узнать "вес" одного символа нужно разделить размер всего сообщения на кол-во символов.
Бита.
Вывод: один символ весит 3 Бита.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
var y:=ArrRandom(n,1,100); y.Println(', ');
var imax:=0;
var imin:=0;
for var i:=1 to n-1 do
if y[i]>y[imax] then imax:=i
else
if y[i]<y[imin] then imin:=i;
Swap(y[imax],y[imin]);
y.Println(', ')
end.
<u><em>Тестовое решение:</em></u>
n= 12
35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31
35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31
program n1;
var num1,num2,i: integer;
numc: string;
begin
write('input number => ');
readln(num1);
numc:=inttostr(num1);
writeln(num1);
for i:=length(numc) downto 1 do
write(numc[i]);
end.
program n2;
var num1,num2,i,sum: integer;
numc: string;
begin
write('input number => ');
readln(num1);
numc:=inttostr(num1);
for i:=length(numc) downto 1 do
sum:=strtoint(numc[i])+sum;
writeln(sum)
end.
program n4;
var num1: integer;
numc: string;
begin
write('input number => ');
readln(num1);
numc:=inttostr(num1);
if numc[2]=numc[1] then writeln('yes')
else writeln('no');
end.
program n5;
var num1,num2,i: integer;
begin
write('input number 1 => ');
readln(num1);
write('input number 2 => ');
readln(num2);
if num1 mod num2 = 0 then writeln('yes')
else writeln('no');
end.
program n6;
var num1: real;
numc: string;
h: integer;
begin
write('input number => ');
readln(num1);
numc:=floattostr(num1);
h:=strtoint(numc[pos('.',numc)+1]);
writeln(h);
end.
Главные части компьютера — процессор и память. Они расположены в системном блоке. Процессор выполняет алгоритмы, а память хранит информацию.
Все другие устройства обеспечивают или ввод информации в память компьютера (мышь, клавиатура), или вывод из неё (монитор).