В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текст (в нём нет лишних пробелов): «Собака, кошка, курица, корова, лошадь, коза,
овца – домашние животные».
Затем он добавил в список название ещё одного животного. Заодно он добавил необходимые запятые и пробелы. При этом размер нового предложения в данной кодировке оказался на 14 байт больше, чем размер исходного предложения. Напишите в ответе длину добавленного названия животного в символах
Var a:array[1..30] of integer; max,i:integer;
Begin
for i:=1 to 30 do readln(a[i]);
max:=a[15];
for i:=15 to 30 do
if a[i]>max then max:=a[i];
writeln('Max=',max);
End.
2)
Var a:array[1..30] of integer; max,i:integer;
Begin
for i:=1 to 30 do readln(a[i]);
max:=a[1];
for i:=1 to 30 do
if a[i]>max then max:=a[i];
writeln('Max=',max);
for i:=1 to 30 do
if (a[i]=max)and((i mod 2)=0) then write(i,', ');
End.
3)
Var a:array[1..30] of integer; max,i,k:integer;
Begin
for i:=1 to 30 do readln(a[i]);
max:=a[1];
for i:=1 to 30 do
if a[i]>max then max:=a[i];
writeln('Max=',max);
k:=0;
for i:=1 to 30 do
if (a[i]=max)and((i mod 2)=0) then k:=k+1;
writeln('ответ: ',k);
End.
С электронной почты можно:посылать сообщения,получать их в свой электронный почтовый ящик,отвечать на письма ваших корреспондентов автоматически, используя их адреса, исходя из их писем,рассылать копии писем сразу нескольким получателям,вести адресную книгу,использовать средства форматирования сообщения,переправлять полученное письмо по другому адресу,использовать вместо адресов (числовых или доменных имен) логические имена,создавать несколько подразделов почтового ящика для разного рода корреспонденции,включившись в список рассылки, получать доступ к информации, которую готовы для вас предоставить другие специалисты по выбранной вами проблеме,включать в письма любые файлы и т.д.Из Интернет вы можете посылать почту в сопредельные сети, если вы знаете адрес соответствующего шлюза, формат его обращений и адрес в той сети.