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