PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:
Найдем объем всего сообщения в битах:
1/512 Мб=1024/512 Кб=2 Кб=2*1024 байт=2048 байт=2048*8 бит
Найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов:
(2048*8)/2048=8 бит i=8
найдем мощность алфавита N
N=2 в стапени i
N=256
ответ:N=256
№2
Найдем сколько занимает один знак:
N=2 в степени i
256=2 в степени i
i=8 бит
Найдем сколько займут введенные символы:
8*100=800 бит=800/8 байт=100 байт
ответ:100 байт
№3
Найдем сколько занимает один символ:
N=2 в степени i
65536=2 в степени i
i=16 бит=2 байта
Найдем кол-во символов:
4стр*5мин=20стр
20стр*40строк=800строк
800строк*50 симв=40000симв
Все символы занимают:
40000*2 байта=80000байт
ответ:80000байт