ПО ИНФОРМАТИКЕ, Цифровые путиПетя нарисовал следующую схему дорог между населенными пунктами А, В, С, D и E, указавна ней протяженность каждой дороги: Но его телефон не может передавать картинки и тогдаон решил записать протяженность дорог между населенными пунктами в виде таблицы(пустая клетка означает, что между соответствующими населенными пунктами нет дороги):После получения сообщения от Пети выяснилось, что он ошибся в составлении таблицы.Найдите его ошибку и исправьте ее. В ответ запишите две буквы — названия населенныхпунктов, для которых Петя неправильно указалA В C Dпротяженность дороги между ними и цифру23правильную протяженность. Укажите допущеннуюB 22Петей ошибку и найдите длину наименьшего пути от21 5 пункта В до пункта ЕD 31Например: запись DE2, будет означать, что ПетяE5 2неправильно указал протяженность дороги междунаселенными пунктами D и E, а правильнаяпротяженность -2.
Ответы
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 28 [Терпение и труд все перетрут]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 56 байт на 1024 (советую использовать калькулятор) получаем 0,05 кбайт [56/1024=0,0546875].
В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]
В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]
ответ: 1909
Var
s : String;
n : Integer;
Function IncS(a : String) : String;
Begin
a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
If a[Length(a)]>'D' then
IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
Check:=False;
If (Pos('A',a)>0) then
Begin
Delete(a,Pos('A',a),1);
If (Pos('A',a)>0) then Check:=True;
end;
end;
Begin
s:=''; n:=0;
While s<>'' do
Begin
{ Writeln(s); }
If Check(s) then Inc(n);
s:=IncS(s);
end;
Writeln(n);
end.
Var
s : String;
n : Integer;
Function IncS(a : String) : String;
Begin
a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
If a[Length(a)]>'D' then
IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
Check:=False;
If (Pos('A',a)>0) then
Begin
Delete(a,Pos('A',a),1);
If (Pos('A',a)>0) then Check:=True;
end;
end;
Begin
s:=''; n:=0;
While s<>'' do
Begin
{ Writeln(s); }
If Check(s) then Inc(n);
s:=IncS(s);
end;
Writeln(n);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Робот сөзін кім ойлап тапты? позя тез луший ответь беремін тез
Автор: snopovajulia
перевести числа в двоичную систему счисления и произвести проверку
Автор: danceplusru
Аралт С диаграммы Венна сравните окружность и сферу. Назовите ихсходства и различя
Автор: fialkaflowers77
Создайте аниме ник для кс го
Автор: Галина-Юлия1292
я незнаю но я отвечу ок ребят спс за