Сколько информации (в кбайтах) содержит текст, состоящий из 900 символов, если известно, что каждый символ кодируется двумя байтами. ответ округли до сотых.

Определим общее количество байт в тексте
900*2=1800
определим, сколько килобайт информации будет
1800/1024= 1.7578125
округляем, получится
1.76
ответ 1.76 Кбайт информации

Итак, историю Интернета можно разделить на несколько этапов.

1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.

1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для элек­тронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до не­скольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результа­тах работ ученые докладывают на международных научных конференциях.

1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).

Сформирована сеть Интернет.

1991–2000 гᴦ. Ethernet стал самой распространенной технологией ло­кальной компьютерной сети. Интернет объединил локальные сети и стал сред­ством массовой коммуникации. Прои­зошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, ви­деоконференции. Услуга Интернет и электронной почты встроена в мо­бильные телефоны.

Program Stipendiya;
type
Student = record
Ocenka: array [1..5] of Byte;
end;
var
i, j: Byte;
Summa: Integer;
Troechik: Boolean;
Studenti: array [1..25] of Student;
begin
for i:=1 to 25 do
begin
// Zapolnyaem ocenki studentov:
WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: ');
for j:=1 to 5 do
begin
Write('Ocenka za '+IntToStr(i)+' ekzamen: ');
ReadLn(Studenti[i].Ocenka[j]);
end;
end;

// Chitaem summu

S:=0;

WriteLn('');

for i:=1 to 25 do
begin
//
Troechik:=False;
//
for j:=1 to 5 do
if Studenti[i].Ocenka[j] < 4 then Troechik:=True;
//
if not Troechik then
begin
WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu');
Summa:=Summa + 900;
end;
end;

// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.