Текстовый редактор Microsoft Word является одним из самых распространенных текстовых
<span>редакторов. Это обусловлено его многочисленными преимуществами, к которым в первую </span>
<span>очередь относятся широкие функциональные возможности. Трудно найти такую </span>
<span>задачу при работе с документами, которую нельзя было бы решить средствами </span>
<span>Microsoft Word. </span>
<span>Текстовый редактор Microsoft Word входит в группу программ Microsoft </span>
<span>Office. Кроме текстового редактора, эта группа включает электронную таблицу </span>
<span>Excel и систему управления базой данных Access, то есть основные программы, </span>
<span>которые могут использоваться для форматирования документооборота в </span>
<span>учреждениях. Широкому использованию Microsoft Word способствуют также </span>
<span>встроенные в него средства преобразования файлов, созданных другими </span>
<span>редакторами, в файлы формата Word. </span>
<span>Существует несколько версий Microsoft Word для Windows, каждая следующая версия, </span>
<span>как правило, совместима с предыдущими версиями и имеет дополнительные возможности.</span>
Var n,count:longint;
begin read(n);
count:=0;
repeat n:=n div 10;
inc(count);
until n=0;
writeln(count);
<span>end.</span>
СС с основагием больше 10 используют помимо цифр еще и латинские буквы. Как 9>8, так А>9, В>А и т.д. В Сс с основанием 10 самая большая цифра 9 и самое большое трехзначное число 999.
Точно так и в других СС.
В СС-15 к цифрам добавляем 5 бкув: А B C D E, значит самое большое трехзначное число: EEE.
В СС с основанием 16 соответственно добавляем 6-ю букву F. Самое большое трехзначное число FFF.
Program Premier_liga_2;
var B, Diff: array [1..16] of integer;
Team: array[1..16] of string;
I, K, X, Z, P: integer;
St: string;
begin
writeln('Введите названия команд и полученные ими очки');
for I:=1 to 16 do
begin
write(I, ' Название: '); readln(Team[I]);
write('Очки: '); readln(B[I]);
write('Забитые мячи: '); readln(Z);
write('Пропущенные мячи: '); readln(P);
Diff[I]:= Z-P;
end;
for K:=1 to 15 do
for I:=1 to 16-K do
if (B[i] < B[I+1]) or
((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then
begin
X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;
St:=Team[I]; Team[I]:=Team[I+1];
Team[I+1]:=St;
end;
for I:=1 to 16 do
begin
for K:=1 to 18-length(Team[I]) do
Team[I]:=Team[I]+' ';
writeln(I:2,' ',Team[I]:18,B[I]:2)
end;
end.
"Всегда следует продумывать План схему решение задачи