Как переделать программу из паскаля abc.net в паскаль abc? программа работает только в abc.net uses crt; var i,j,k,n: integer; s1: string; s: array [1..20] of string; begin n: =0; repeat n: =n+1; readln(s[n]); until (s[n]=''); n: =n-1; for i: =1 to n do begin k: =pos(' ',s[i]); delete(s[i],1,k); end; for i: =1 to n-1 do for j: =n-1 downto i do if s[j+1] s1: =s[j]; s[j]: =s[j+1]; s[j+1]: =s1; end; for i: =1 to n do write(s[i]+' '); end.
191
236
Ответы на вопрос:
В сообщении две страницы по 256 символов. 256 * 2 = 512 символов во всем сообщении.
2) В 1 Кбайте 1024 байта, 1/16 Кбайта = 1024 : 16 = 64 байта (весит сообщение).
3) Переведем 64 байта в биты. 1 байт = 8 битам.
64 * 8 = 512 бит.
4) Узнаем информационный вес каждого символа.
512 : 512 = 1 бит несет один символ.
5) По формуле нахождения информации N = 2i (где N - мощность алфавита, i - количество информации в битах, которое несет каждый символ алфавита) найдем мощность алфавита.
N = 21
N = 2 символа в алфавите.
Популярно: Информатика
-
fearsomehusky07.07.2020 08:28
-
kirillsmex13p07s3r15.06.2023 06:03
-
александр43611.03.2022 10:04
-
koteika28218.09.2022 06:26
-
MrAmoral23.07.2022 13:50
-
Kotvo4cah13.06.2023 20:48
-
Алиса12346410.10.2021 04:15
-
tastapva16.09.2022 18:24
-
sebinavala199705.05.2021 09:51
-
alhanovak209.12.2020 07:44