Дан текст из 512 символов. известно , что информационный вес одного символа 16 бит. определите информационный объем текста в кбайт
Ответы на вопрос:
и какая вероятность что пользователь не
program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin randomize; writeln("загадайте число"); n : = 0; repeat n : = n+1; i : = random(10); op : = random(4); case op of 1: s : = "прибавте "; 2: s : = "отнимите "; 3: s : = "умножте на "; else s : = "поделите на "; end; writeln(s, i); changes[1,n] : = op; {запоминаем действия} changes[2,n] : = i; until n = 10; writeln("что вышло? "); readln(res); for i : = n downto 1 do { производим обратные действия } begin case changes[1,i] of 1: res : = res - changes[2,i]; 2: res : = res + changes[2,i]; 3: res : = res / changes[2,i]; else res : = res * changes[2,i]; end; end; writeln("вы загодали ",res); end.
Популярно: Информатика
-
Zero0000030.06.2023 04:16
-
огурок16.09.2020 02:01
-
кулибяка212.04.2023 06:42
-
Михалкова16.02.2023 20:18
-
Shkodinka05.10.2022 05:00
-
малика302409.06.2022 10:02
-
qwerty68104.10.2022 04:00
-
alinkaaa88804.09.2022 02:09
-
Отлишник8826.03.2020 19:19
-
DevilingKeks31.01.2022 12:27