Для начала запишем над каждой цифрой нумерацию с права на лево начиная с нуля
6¹5⁰₈=6*8¹+5*8⁰=48+5(любое число в нулевой степени равно 1)=53₁₀
По длинам сторон пятиугольника на Паскаль ABC:
Program P5;
var a1,a2,a3,a4,a5:real;
begin
writeln('Введите длины сторон');
readln(a1,a2,a3,a4,a5);
writeln('Периметр пятиугольника = ', a1+a2+a3+a4+a5);
end.
//PascalABC.NET версия 3.2, сборка 1389
//Right – перемещает Робота вправо;
//Left – перемещает Робота влево;
//Up – перемещает Робота вверх;
//Down – перемещает Робота вниз;
//Paint – закрашивает текущую ячейку;
//FreeFromLeft – возвращает True если слева от Робота свободно;
//FreeFromRight – возвращает True если справа от Робота свободно;
//FreeFromUp – возвращает True если сверху от Робота свободно;
//FreeFromDown – возвращает True если снизу от Робота свободно;
uses Robot;
const
h = 10;
w = 15;
begin
Field(w, h);
for var i := 1 to w div 2 do Left;
for var i := 1 to h div 2 do Up;
Stop;
for var i := 1 to h do
begin
if(i mod 2 = 0) then
repeat
if FreeFromLeft then Left;
Paint;
if FreeFromLeft then Left;
Paint;
if FreeFromLeft then Left;
until not FreeFromLeft
else
repeat
if FreeFromRight then Right;
Paint;
if FreeFromRight then Right;
if FreeFromRight then Right;
until not FreeFromRight;
if FreeFromDown then Down;
end;
end.
<span>В ОС Windows в имени файла запрещено использование следующих символов: \, /, :, *, ?, ", <, >, |. В Linux эти символы, кроме /, допустимы, хотя использовать их следует с осторожностью, так как некоторые из них могут иметь специальный смысл, а также из соображений совместимости с другими ОС.</span>