1. какое минимальное число битов на символ надо выделить в памяти, если требуется использовать не менее 100 символов одновременно? 2. сколько различных символов можно использовать при 9-битном коде (на каждый символ отводится девять битов)? 3. определите, чему равен информационный объем (в байтах) следующего высказывания рене декарта, закодированного с 16-битной кодировки: я мыслю, следовательно, существую. 4. текст, закодированный в 8-битной кодировке, занимает в памяти 2 кбайта. сколько символов в этом тексте? 5. текст, закодированный в 16-битной кодировке, занимает в памяти 6 кбайт. сколько символов в этом тексте? 6. текст из 46 символов занимает в памяти компьютера 69 байтов. определите, сколько битов выделяется на каждый символ. сколько различных символов можно использовать при такой кодировке? 7. текст, содержащий 16 384 символа занимает в памяти компьютера 22 кбайта. определите, сколько битов выделяется на каждый символ. сколько различных символов можно использовать при такой кодировке? 8. при перекодировке сообщения на языке из 16-битного кода в 8-битную кодировку оно уменьшилось на 560 битов. какова длина сообщения в символах? 9. при перекодировке сообщения из 8-битного кода в 16-битную кодировку его объем увеличился на 2048 байтов. каков был информационный объем сообщения до перекодировки? 10. текст, содержащий 150 страниц (на каждой странице 32 строки по 64 символа) закодирован в 16-битной кодировке. определите информационный объем текста в кбайтах. 11. книга занимает в памяти 500 кбайт. на каждой странице книги 32 строки по 64 символа. сколько страниц в этой книге?
Ответы
program parampampam;
uses crt;
var
i: integer; {счетчик}
s: integer;
begin
clrscr; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S');
writeln ('Введите число S, от 0 до 18: ');
{ввод числа S с проверкой на корректность}
repeat
readln (s);
if (s>18) or (s<0) then
writeln ('Неверный ввод. Повторите')
until (s<=18) and (s>=0);
{вывод нужных чисел на экран (цикл с предусловием)}
for i := 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ');
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}
end.
uses crt;
var
i: integer; {счетчик}
s: integer;
begin
clrscr; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S');
writeln ('Введите число S, от 0 до 18: ');
{ввод числа S с проверкой на корректность}
repeat
readln (s);
if (s>18) or (s<0) then
writeln ('Неверный ввод. Повторите')
until (s<=18) and (s>=0);
{вывод нужных чисел на экран (цикл с предусловием)}
for i := 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ');
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Если х больше у то найти х-у иначе квадратный корень х+у в паскале
Автор: Liliya_Ivanova
ИНФОРМАТИКА Яка властивість дає можливість візуалізувати табличні величини?
Автор: orion-inginiring7807
Из слова ‘программа’ получить 4 новых слова. паскаль.
Автор: mursvita943
#include <stdio.h>
using namespace std;
int main(){
int y;
cin>>y;
y=y%12;
switch (y){
case 4:{cout<<"Mouse"; break;}
case 5:{cout<<"Bull";break;}
case 6:{cout<<"Tiger";break;}
case 7:{cout<<"Rabbit";break;}
case 8:{cout<<"Dragon";break;}
case 9:{cout<<"Snake";break;}
case 10:{cout<<"Horse";break;}
case 11:{cout<<"Goat";break;}
case 0:{cout<<"Monkey";break;}
case 1:{cout<<"Cock";break;}
case 2:{cout<<"Dog";break;}
case 3:{cout<<"Pig";break;}
}
cin.get();
cin.get();
return 0;
}