Как можно решить 9 в огэ другим вот : var s, n: integer; begin s : = 2; for n : = 2 to 5 do s : = s + n*2; writeln(s); end. как то можно что-то в степень возвести, а что? ? чтоб долго таблицу не писать

1) s=2    n=2  s:=2+4=6
2) s=6    n=3  s:=6+6=12
3) s=12  n=4  s=12+8=20
4) s=20  n=5  s=20+10=30

При каждом шаге будем получать
6_12_20_30...
Видим закономерность
2*3_3*4_4*5_5*6...

Var
s,s1,n: integer;
Begin

writeln('Старый код');
s := 2;
For n := 2 to 5 do
begin 
Write('s= ',s); 
s := s + n*2; 
Write('  n= ',n); 
Writeln('  s= ',s);
end;

writeln;
writeln('Новый код');
for n:=2 to 5 do 
begin   
s:=n*(n+1);   
write('n= ',n);   
writeln('  s= ',s); 
end;
End.

Начнем сначала:

Определим объем одного символа.

256 символов соответстуют одному байту информации (или 8 битам). Количество бит можно посчитать по формуле log (256) по основанию 2. Он равен 8.

 

Значит один символ - это один байт. Теперь посмотрим какой объем информации содержит страница: 30*70 = 2100 байт.

Всего у нас есть 5 страниц текста:

2100 байт * 5 = 10500 байт информации.

 

По современной классификации это 10.5 килобайт информации.

По старой классификации (изучают в школах) это примерно 10.25 килобайт информации 

Алфавит - это счетное множество.

Мощностью такого множества называется количество элементов этого множества.

 

В настоящее время термин килобайт не однозначен. Возьмем его значение (наверняка сейчас так и есть в школьной программе)

1 килобайт = 1024 байта.

 

Итого:

У нас 256*2 = 512 символов, которые занимают 1024/16 = 64 байта.

 

Таким образом  один символ занимает 64/512  = 1/8 байта или один бит. (В каждом байте ровно 8 бит).

 

Один бит информации это нолик или единичка. то есть имеет всего два значения. 

Это и есть ответ к задаче:

Мощность алфавита: 2