Напишите алгоритм рисования снеговика

1). Намалювати круглий тулуб.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.

Очень нечётко сформулировано!

Объём информации о чём? Если о количестве сделанных ходов, то это 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.