Обьединять,разделять,добавлять ячейки,убавлять.
Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.
А)2кб больше, тк если перевести 8192бита в кб, то получиться 1кб. 8192:8:1024=1
б)8 байт больше, тк если перевести 1 бит вбайт , то будет 0,125 байт.
1:8=0.125
Каждый символ в этой кодировке имеет инф.вес =8 бит =1 байт
Символов сего под запись 16, следовательно 16*1 байт =16 байт
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>