Program aliona;
var x,y,z:integer;
max,sr,min:integer;
begin
writeln('vvedite x ,y,z');
readln(x ,y ,z);
if (x>y) and (x>z) and (z>y) then
begin
max:=x;
sr:=z;
min:=y;
end;
if (y>z) and (y>x) and (x>z) then
begin
max:=y;
sr:=x;
min:=z;
end;
if (z>y) and (z>x) and (y>x) then
begin
max:=z;
sr:=y;
min:=x;
end;
writeln(max,' ',sr,' ',min);
readln;
end.
В результате выполнения программы на ленте останутся 2 метки - крайняя левая и крайняя правая (из тех, что были на ленте первоначально).
Команды 2, 3, 4 стирают все метки после первой левой. В команде 5 каретка возвратится назад, а в команде 6 будет поставлена метка на месте последней стертой.
Данный алгоритм зациклится при условии что впереди не будет стены(препятствия).
Вы хоть пишите, как нужно это проверить....то ли это алгоритм проверки на каком либо языке, то ли еще что-то. Чем точнее вы задаете ответы, тем быстрее на них отвечают.
Архивация данных, дефрагментация диска, , назначенные задания , сведения о системе , центр обеспечения безопасности ,восстановленные системы ,мастер переноса файлов и параметров ,очистка диска, таблица символов .