Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.
Ответ:
1. Цифровой носитель не надёжен. Его можно потерять или сломать.
2. Это удобнее, чем книги и тетради.
алфавит состоит из 64 символов, значит, один символ алфавита имеет вес 6 бит (т. к. 64=2^6). тогда каждая строка содержит 64×6=384 бита, каждая страница содержит 384×32=12288 битов, а 10 страниц содержат 12288×10=122880 битов.
122880(битов):8=15360 байт.
1) 30*70*5=1050 байт объем всего текста
2) 4*30*70=8400 бит; 3150*8=25200 бит; 25200/8400=3 бита - вес одного символа. Зная формулу найдем 2^3=8 Значит мощность алфавита равна 8
Readln(m);
rez:=1;
while (i<=m) do
begin
rez:=rez*m;
inc(m);
inc(i);
end;
write(rez);