Автоматическое устройство осуществило перекодировку сообщения, первоначально записанного в коде unicode в 8 битную котировку ascii при этом информационное сообщение уменьшилось на 480 бит . какова длина сообщения в символах?
Ответы на вопрос:
решение не возможно. должно быть условие сколько бит до перекодирования в кодировке было. проверь условие
ну так во первых обяъвление процедуры должно быть
procedure inputmas1(var mas1: tmas );
во вторых ты забыл end; т.е
begin for i: =1 to 10 do begin mas1[i]: =random(n); write(mas1[i]: 3); end; end; {забытый end}
в третьих ты не написал основную прграмму т.е забыл begin и не вызвал процедуру
inputmas1
begin
clrscr; inputmas1(mas1);
readkey; end.
итого прога должна выглядеть примерно так
program massivuses crt; const n=10; type tmas=array[1..n] of integer; var mas1: tmas;
procedure inputmas1(var mas1: tmas); var i: integer; begin for i: =1 to 10 do begin mas1[i]: =random(n); write(mas1[i]: 3); end; end; {основная прога}begin clrscr; inputmas1(mas1); readkey; end.
держи ! пользуйся на здоровье и будь внимательнее.
Популярно: Информатика
-
АннаК7803.09.2020 17:49
-
Бекки517.03.2022 15:42
-
Nikitka76rus03.08.2021 16:08
-
sofiika1727.05.2020 04:12
-
rouberuplay28.03.2023 06:55
-
wutter9931.08.2020 03:21
-
Настюнькаz03.04.2022 00:31
-
Zagyart31.10.2021 02:01
-
Margaryaanmag23.11.2020 18:40
-
dianababitskay15.05.2020 08:34