Как я любил твои отзывы, глухие звуки, бездны глас = 51 символ (пробелы тоже считаем )
51 * 16 бит = 816 бит/8 =102байт размер файла
№1
1) 5*(-3+5+1)=15
2) 5*(1+8+1)=50
Чтобы вернуться в точ(0;0) нужно выполнить команду Сместиться на (-15;-50)
№2
1) 6*(1-2+3)-2=10
2) 6*(0+3-2)+1=7
ответ: чертежник в точке (10;7)
Var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(36)+10;
writeln('a[', i, '] = ', a[i]);
end;
for i:=2 to 10 do
if (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s:=s+1;
writeln('Число соседних четных пар: ', s);
<span>end.</span>
Скорее всего уже поздно, но вот:
1) 1030
2) 9
3) 55