ПО ИНФОРМАТИКЕ, Цифровые пути Петя нарисовал следующую схему дорог между населенными пунктами А, В, С, D и E, указав на ней протяженность каждой дороги: Но его телефон не может передавать картинки и тогда он решил записать протяженность дорог между населенными пунктами в виде таблицы (пустая клетка означает, что между соответствующими населенными пунктами нет дороги): После получения сообщения от Пети выяснилось, что он ошибся в составлении таблицы. Найдите его ошибку и исправьте ее. В ответ запишите две буквы — названия населенных пунктов, для которых Петя неправильно указал A В C D протяженность дороги между ними и цифру 2 3 правильную протяженность. Укажите допущенную B 2 2 Петей ошибку и найдите длину наименьшего пути от 2 1 5 пункта В до пункта Е D 3 1 Например: запись DE2, будет означать, что Петя E 5 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 кбайт]
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.
я незнаю но я отвечу ок ребят спс за