Pascal
Program change;
Var x, y, a: integer;
Begin
Readln(x, y);
If x > y then
Begin
a := x;
x := y;
y:= a;
End;
Writeln(x, y);
End.
Твоя программа получает на вход два числа. Затем она их сравнивает и, если х > у, меняет их значения местами через дополнительную переменную а. Затем выводятся х и у на экран.
5) Цикл Пока не сундук, повторять:
Шаг вперед
Если впереди препятствие,
выполнить: Поворот направо
Конец цикла
Только забрать алмаз не получится.
6) Цикл Пока не сундук, повторять:
Шаг вперед
Если слева НЕ препятствие,
выполнить: Поворот налево.
Конец цикла
Var
A,r1,r2,r3,r4:integer;
Begin
For A:= 1000 to 9999 do
Begin
r1:=A div 1000;
r2:=(A div 100) mod 10;
r3:=(A div 10) mod 10;
r4:=A mod 10;
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
Write(A,' ')
End;
End.