Очень нечётко сформулировано!
Объём информации о чём? Если о количестве сделанных ходов, то это 15=Fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. Уточни, какой.
Иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". Не в сказке ж живём.
Да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?
В этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.
Ячейку можно кодировать двумя разными
1. последовательно их перенумеровав. В этом случае макс. номер будет 24(если нумеровать с 0). Так как 2^4 <24< 2^5, то для такой нумерации потребуется 5 бит.
2. Указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)
на что потребуется 3 бита, а на пару 6 бит.
Таким образом экономней.
И запись 15 ходов можно поместить в 15*5=75бит= 10байт
Или всё же не это имелось в виду?
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.