Uses crt;
var a: array [0..5,0..5] of integer; i, j, sdvig ,k: integer;
Begin
writeln('Ввод матрицы:');
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i,j]);
end;
write('Сдвиг на ');
readln(sdvig);
for i := 1 to 5 do
for k := 1 to sdvig do
begin
a[i,0] := a[i,5];
for j := 5 downto 1 do
a[i,j] := a[i,j - 1];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i,j],' ');
writeln;
end;
<span>End.</span>
1 символ кодируется 16 битами.
У нас объём стал меньше на 12 байт, 12 байт = 12 * 8 = 96 бит
96 / 16 = 6 - число вычеркнутых символов. В слове будет 4 буквы, так как всего 6 символов вычеркнули, из них 1 пробел и 1 запятая.
Ответ: Слон
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>