Var I,S: integer;
Begin
S:=0;
for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }
S:=S+sqr(I); {sqr(I)- квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}
writeln('сумма квадратов цифр = ',S); {выводим сумму}
<span>end.</span>
Var x,y,s,s1:integer;
begin
s:=0;s1:=0;
for x:=-3 to 3 do begin
if x<0 then s:=s+sqr(x);
if x>=0 then s1:=s1+x*sqr(x);
end;
writeln('s=',s);
writeln('s1=',s1);
end.
1) Ищем ближайшую сверху к 48 степень двойки - это 2^6 = 64, то есть каждого спортсмена можно закодировать минимум 6 битами. Половина спортсменом это 48/2 = 24, и если на каждого из них надо по 6 бит, то необходимый объем памяти: 24*6 = 144 бита
2) Ближайшая к 15 степень двойки это 2^4 = 16, значит по 4 бита на номер. Для 40 номеров нужно 4*40 = 160 бит
3) Всего в алфавите 5 символов, ближайшая к 5 степень двойки это 2^3 = 8, значит по 3 бита на символ. Каждый пароль кодируется 11*3 = 33 битами. А для хранения 33 бит нужно 33/8 = 4.125 байт, округляем до 5 байт (по условию). Значит на 20 паролей нужно 20*5 = 100 байт.
110110110 = 100000000(2) + 10000000(2) + 100000(2) + 10000(2) + 100(2) + 10(2) = 2^8 + 2^7 + 2^5 + 2^4 + 2^2 + 2 = 256 + 128 + 32 + 16 + 4 + 2 = 438
Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21