Зависать вконтактике вместо того, что работать. А если серьезно: программист пишет код и тестирует программы на разных языках программирования. Журналист печатает статьи в бумажном( с помощью принтера) или электронном варианте, ищет газеты и журналы, с которыми он бы мог сотрудничать, через интернет. Бухгалтер обрабатывает документы в электронном формате, подсчитывает деньги с помощью специальных программ, ведет базы данных. Юрист узнает с помощью Интернета о новых законах. Директор осуществляет связь со своими подчиненными, ведет документацию, Преподаватель скачивает презентации, видеоролики для уроков. Доктор узнает о новинках в фармакологии, смотрит образовательные ролики для повышения квалификации. Водитель с помощью компьютера узнает о том, какие дороги сломаны и как искать обходные пути, как правильно управлять новейшими моделями автомобилей, использует дорожные карты. Швея узнает, что сейчас в моде, ищет новые выкройки, закупает материалы. Повар ищет новые рецепты.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
<em>Трассировка</em><span> — это операция, позволяющая определить адреса серверов, через которые проходят данные, получаемые браузером, а также скорость передачи данных каждым из серверов. Трассировка бывает полезна, например, когда необходимо выяснить причину долгой загрузки веб-сайта. Чтобы выполнить трассировку, откройте терминал командной строки, наберите команду следующего вида и нажмите клавишу «Enter»</span>
1) -
2) 20 18 14 8 0 -10 -22 -36 -52 -70
3) 4
код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := 20 - i * (i - 1);
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if a[i] > i then k := k + 1;
Write(k);
writeln;
end.