18 + 10 = 28 символов - мощность алфавита
N =
, 28 =
, i = 5 бит - для одного символа.
5 * 7 = 35 бит - для хранения 7 символов.
35/8 = 5 байт.
5 * 60 = 300 байт - для хранения 60 номеров
Ответ: 300 байт.
Я думаю Маше 3 года маме 24 а папе 31 а использовала она систему вранья))))) (Это я шучу я не знаю)
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
var mas:=ArrRandom(N,-20,20); mas.Println;
writeln('Положительных элементов: ',mas.Count(t->t>0));
writeln('Отрицательных элементов: ',mas.Count(t->t<0));
writeln('Нулевых элементов: ',mas.Count(t->t=0));
end.
1. Пусть x - количество груш.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9
Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>