Информатика

Аватар
Информатика, опубликовано 2018-08-22 21:57:11
Аватар
Информатика, опубликовано 2018-08-22 21:56:51
Аватар
Информатика, опубликовано 2018-08-22 21:56:48
ДАЮ 50 БАЛЛОВ ГЛАВНОЕ ПОМОГИТЕ Помогите решить через ДАНО и РЕШЕНИЕ 1.Информационное сообщение на русском языке, первоначально записанное в 8-битном коде Windows, было перекодировано в 16 битовую кодировку Unicod. В результате информационный объем сообщения стал равен 2 Мбайт. Найдите количество символов в сообщении. 2 Сообщение занимает 3 страницы по 40 строк, в каждой строке записано по 60 символов. Информационный объем всего сообщения равен 14400 байт. Сколько двоичных разрядов было использовано на кодирование одного символа? 3. Сообщение, информационный объем которого равен 10 Кбайт, занимает 8 страниц по 32 строки, в каждой из которых записано по 40 символов. Сколько символов в алфавите, на котором записано это сообщение? 4.информационное объеме сообщение записанное в 8-битном коде КОИ-8, составляет 8 Кбайт. Сколько листов бумаги потребуется для распечатки этого текста при двухсторонней печати, если каждая страница содержит 32 строки по 40 символов в строке?
Аватар
Информатика, опубликовано 2018-08-22 21:56:45
Аватар
Информатика, опубликовано 2018-08-22 21:56:36
Аватар
Информатика, опубликовано 2018-08-22 21:56:33
Задаю три массива: вопросы викторины, верные ответы, ответы, которые будут введены участниками. Ответы в основном из одного - двух слов. Все вопросы и ответы ввожу присваиванием, но когда пишу цикл на ввод ответа, то первый раз цикл срабатывает нормально, а последующие разы программа не требует ввода, то есть оператор read не работает. Что я сделала не так? Вот программа: program m81337154u; var i: integer; ans:array [1..12] of string; quest:array [1..12] of string; answ:array [1..12] of string; begin writeln (); ans[1]:=; ans[2]:=; ans[3]:=; ans[4]:=; ans[5]:=; ans[6]:=; ans[7]:=; ans[8]:=; ans[9]:=; ans[10]:=; ans[11]:=; ans[12]:=; quest[1]:=; quest[2]:=; quest[3]:=; quest[4]:=; quest[5]:=; quest[6]:=; quest[7]:=; quest[8]:=; quest[9]:=; quest[10]:=; quest[11]:=; quest[12]:=; for i:=1 to 12 do begin writeln (Вопрос номер , i); writeln (quest[i]); write (Ваш ответ - ); read (answ[i]); if answ[i]=ans[i] then writeln (Ответ верный) else writeln (Ответ неверный, попробуйте снова); writeln; end; writeln (Congrats); end. Где-то есть ошибка? Или паскаль никогда не повторяет read в цикле?