Var a:array[1..10] of integer;
i,b,ind,el,min:integer;
begin
min:=1000000;
for i:=1 to 10 do
read(a[i]);
readln;
read(b);
for i:=1 to 10 do begin
if abs(a[i]-b)<min then begin
min:=abs(a[i]-b);
el:=a[i];
ind:=i;
end;
end;
write(el,' ',ind); //Выводит элемент, а затем его индекс.
end.<span>
</span>
ASCII - 8-битная кодировка т.е. на 1 символ уходит 8 бит информации.
Значит в тексте 24576/8=3072 символа.
Информация относится к фундаментальным, неопределяемым понятиям науки информатика. Термин «информация» происходит от латинского слова information, что означает сведения, разъяснения, изложение.
Информационный процесс – это процесс, в результате которого осуществляются прием, передача (обмен), преобразование и использование информации.
Begin
if n > 1 then
decTo5(n div 5);
write(n mod 5);
end;
var
n: integer;
begin
write('n = ');
readLn(n);
if (n > 0) then
decTo5(n)
else
writeLn('Error, n must > 0!');
writeLn;
end<span>.
Извини меня если не правильно. Вроде так.
</span>