Найдём общее число символов:
4 * 30 * 50 = 6000 символов
I - объём
I = 4500 байтов = 36000 бит
Чтобы найти количество символов найдем i.
N = 2 в степени i
i = 36000 / 6000 = 6
N = 64
Ответ: 64 символа в алфавите.
5 (10cc) =101 (2 cc)
9 (10cc) =1001 (2cc)
----------------------------------------------
1001
+101
--------
1110 (2cc) = 16 (8cc) = E (16cc) = 14 (10cc)
<em>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).JoinIntoString('').
Where(c->c in ['2','4','6','8']).Select(c->c.ToDigit).Sum.Println
end.
<u>Пример</u>
13
4492 13638 -4490 4186 13985 -4266 5805 -26574 28710 -378 17920 1886 -24200
146
Program mnogohodovochka;
var
a,chas,sek,min:integer;
begin
writeln('vvedite chislo');
readln(a);
chas:=a div 3600;
min:=a mod 3600 div 60;
sek:=a mod 3600 mod 60;
writeln(chas, 'ч', min, 'мин', sek, 'с');
end.
Var
n, i, mn, mx:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Ishodnii massiv');
for i:=1 to 10 do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln();
mn:=1; mx:=1;
for i:=1 to 10 do
begin
if a[mn]>a[i] then mn:=i;
if a[mx]<a[i] then mx:=i;
end;
n:=a[mn];
a[mn]:=a[mx];
a[mx]:=n;
writeln('Massiv posle obrabotki');
for i:=1 to 10 do
write(a[i],' ');
writeln();
end.
