//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
5) Цикл Пока не сундук, повторять:
Шаг вперед
Если впереди препятствие,
выполнить: Поворот направо
Конец цикла
Только забрать алмаз не получится.
6) Цикл Пока не сундук, повторять:
Шаг вперед
Если слева НЕ препятствие,
выполнить: Поворот налево.
Конец цикла
1 Мб=1024 Кб
1 Кб=1024 Б
следовательно, нужно два раза поделить на 1024
1 байт = 8 бит
1024 байта = 1 Кб
1024 Кб = 1 Мб
1024 Мб = 1 Гб
1024 Гб - 1 Тб
174×8=1392бита
342,3×1024=350 515,2
312 бит или 39 байт .......