Тема массивы, язык паскаль. составьте программу которая заменяет все числа кратные 9 на -5(массив задается с клавиатуры , количество элементов 12)
153
254
Ответы на вопрос:
Program z1; var a: array[1..12] of integer; i: integer; begin for i: =1 to 12 do begin readln(a[i]); if a[i] mod 9 =0 then a[i]: =-5; end; for i: =1 to 12 do writeln(a[i]); end.
Найдём количество информации для одного символа бит. теперь найдём информационный объём всего текста: i=ki бит = 90 байт
Популярно: Информатика
-
supervte2016.07.2022 02:24
-
papa4219.03.2023 14:20
-
Chalmers199815.12.2021 17:46
-
Диана0500524.04.2022 06:03
-
GG0115521.01.2023 19:06
-
Аня27091730.10.2021 11:13
-
Kroher26.06.2023 04:01
-
maslyuk0511.04.2020 10:54
-
кэтси19.08.2022 07:25
-
нигич114.01.2023 21:52