написать рабочее меню для этой программы var a:array[1..50] of byte;
n,p, i,k,m,j,x,y,z: integer;
begin
writeln('Введите количество элементов');
readln(p);
n:=4;
repeat
for i:=n downto 1 do begin
a[i]:=p mod 10;
p:= p div 10;
end;
For i:=1 To n Do Begin
k := i;
For j := i + 1 To n Do
If a[j] >= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
x:=a[1]*1000+a[2]*100+a[3]*10+a[4];
For i := 1 To N - 1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] <= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
y:=a[1]*1000+a[2]*100+a[3]*10+a[4];
z:=x-y;
until z<>p;
writeln(z);
end.

Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют две команды:

Вперёд  (где  – целое число), вызывающая передвижение Черепашки на  шагов в направлении движения.

Направо  (где  – целое число), вызывающая изменение направления движения на  градусов по часовой стрелке.

Запись Повтори  [Команда1 Команда2 Команда3] означает, что последовательность команд в скобках повторится  раз.

Черепашке был дан для исполнения следующий алгоритм:

Повтори 360 [Вперёд 30 Направо 60]

Какая фигура появится на экране?

правильный -угольник

правильный треугольник

правильный шестиугольник

незамкнутая ломаная линия

Объяснение:

Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют две команды:

Вперёд  (где  – целое число), вызывающая передвижение Черепашки на  шагов в направлении движения.

Направо  (где  – целое число), вызывающая изменение направления движения на  градусов по часовой стрелке.

Запись Повтори  [Команда1 Команда2 Команда3] означает, что последовательность команд в скобках повторится  раз.

Черепашке был дан для исполнения следующий алгоритм:

Повтори 360 [Вперёд 30 Направо 60]

Какая фигура появится на экране?

правильный -угольник

правильный треугольник

правильный шестиугольник

незамкнутая ломаная линия

Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют две команды:

Вперёд  (где  – целое число), вызывающая передвижение Черепашки на  шагов в направлении движения.

Направо  (где  – целое число), вызывающая изменение направления движения на  градусов по часовой стрелке.

Запись Повтори  [Команда1 Команда2 Команда3] означает, что последовательность команд в скобках повторится  раз.

Черепашке был дан для исполнения следующий алгоритм:

Повтори 360 [Вперёд 30 Направо 60]

Какая фигура появится на экране?

правильный -угольник

правильный треугольник

правильный шестиугольник

незамкнутая ломаная линия

Объяснение:

Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют две команды:

Вперёд  (где  – целое число), вызывающая передвижение Черепашки на  шагов в направлении движения.

Направо  (где  – целое число), вызывающая изменение направления движения на  градусов по часовой стрелке.

Запись Повтори  [Команда1 Команда2 Команда3] означает, что последовательность команд в скобках повторится  раз.

Черепашке был дан для исполнения следующий алгоритм:

Повтори 360 [Вперёд 30 Направо 60]

Какая фигура появится на экране?

правильный -угольник

правильный треугольник

правильный шестиугольник

незамкнутая ломаная линия