const
n = 10;
var
a:array[1..n] of integer;
i, j:integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(101);
write(a[i], ' ');
end;
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] mod 10 > a[j + 1] mod 10 then
begin
a[j] := a[j] + a[j + 1];
a[j + 1] := a[j] - a[j + 1];
a[j] := a[j] - a[j + 1];
end;
writeln;
writeln('Результат:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
Зависать вконтактике вместо того, что работать. А если серьезно: программист пишет код и тестирует программы на разных языках программирования. Журналист печатает статьи в бумажном( с помощью принтера) или электронном варианте, ищет газеты и журналы, с которыми он бы мог сотрудничать, через интернет. Бухгалтер обрабатывает документы в электронном формате, подсчитывает деньги с помощью специальных программ, ведет базы данных. Юрист узнает с помощью Интернета о новых законах. Директор осуществляет связь со своими подчиненными, ведет документацию, Преподаватель скачивает презентации, видеоролики для уроков. Доктор узнает о новинках в фармакологии, смотрит образовательные ролики для повышения квалификации. Водитель с помощью компьютера узнает о том, какие дороги сломаны и как искать обходные пути, как правильно управлять новейшими моделями автомобилей, использует дорожные карты. Швея узнает, что сейчас в моде, ищет новые выкройки, закупает материалы. Повар ищет новые рецепты.
193.126.7.29 - сеть класса С
1.256.34.21 - сеть класса А
Байт умножь на 1024, а бит 8192
