1. Символов в алфавите 32, значит, для записи одного любого символа потребуется 5 бит ( = 32).
2. 512 (таблиц) * 256 (символов) * 5 (бит на символ) = 655 360 бит.
3. 655 360 бит = 81 920 байт = 80.
Letter.txt,письмо.doc,роза.bmp,crop12.exe
//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
Чтобы увидеть графическую заставку к игре необходимо открыть .avi
Ответ: а
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>