Где-то в поле Робота находится прямоугольник, размеры которой неизвестны. Робот из верхнего левого угла поля должен дойти до прямоугольника и закрасить все клетки по периметру вокруг него. Пример результата работы программы показан на рисунке. (с цикла пока).
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
end.
2)var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
end.
Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта
Строка: 60 символов по 16 бит = 960 бит
60 символов по 2 байта = 120 байт
Страница: 40 строк по 960 бит = 38400 бит
40 строк по 120 байт 4800 байт
Учебник: 288 страниц по 38400 бит = 11059200 бит
288 страниц по 4800 байт = 1382400 байт
ответ: 11059200 бит, 1382400 байт
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт
Строка: 60 символов по 8 бит = 480 бит
60 символов по 1 байту = 60 байт
Страница: 40 строк по 480 бит = 19200 бит
40 строк по 60 байт = 2400 байт
Учебник: 288 страниц по 19200 бит = 5529600 бит
288 страниц по 2400 байт = 691200 байт
ответ: 5529600 бит, 691200 байт