Было 8 вагонов
Лене сказали встрететь тоесть подойти и посмотреть информацию знак-цифру о вогоне посмотреть свое место, сесть.
Ответ:Количество информации 6
<h2>Глобальная сеть — любая сеть связи, которая охватывает всю Землю. Термин, используемый в данной статье, относится в более узком смысле к двунаправленным сетям связи, а также базе технологий сетей.(Интернет)</h2>
Winrar (просит заплатить за полную версию но мы можем отказаться)
avast (всегда предлагает улучшить но мы можем зарегистрироваться и остаться на бесплатной версии)
ccliner (предлагает отблагодарить, но мы можем бесплатно пользоваться)
Total Commander (Предлагает купить полную версию (аналогично как winrar))
Мигает, движется, слушать дает (телефон) .
<span>хвост длинный, а сама масявка, пользы мало если не в "связи" с чем-то (мышь) . </span>
<span>и не картотека и не библиотека, а все знает о многих (записная книжка) </span>
<span>все укроет - сбережет, а не холодильник. (дискета) </span>
рано поднимает, до вечера донимает (школа) .
Type
index='0'..'z';
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
{ очищаем массив счетчиков }
for i:=0 to 255 do Ch[i]:=0;
Writeln('Введите текст');
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)
