выучи три команды из СКИ (системы команд исполнителя) "Стрелочка". Это будет быстрее чем задавать вопросы в И-нет: ШАГ -перемещение на одно деление с рисованием линии; ПРЫЖОК -перемещение на одно деление без рисования линии; ПОВОРОТ -изменение направления движения на 90 гр. против часовой стрелки. А пока держи алгоритмы (исходные данные то же, что и в предыдущих примерах:
Const n=5;m=10; var b:array[1..n,1..m]of integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin b[i,j]:=random(50); write(b[i,j]:4); end; end; writeln; for j:=1 to m do begin k:=0; for i:=1 to n-1 do if b[i,j]<b[i+1,j]then k:=k+1; if k=n-1 then buf:=buf+1; end; k:=0; for l:=2 to m do if l mod 2=0 then for i:=1 to n-1 do for j:=i+1 to n do if b[i,l]>b[j,l]then begin k:=b[i,l]; b[i,l]:=b[j,l]; b[j,l]:=k; end; writeln('увеличилось ',m div 2-buf); for i:=1 to n do begin writeln; for j:=1 to m do write(b[i,j]:4); end; end.
a,x:integer;
begin
writeln('Vvedite a');
readln(a);
x:=a mod 10*100;
a:=a div 10;
x:=x+a mod 10*10;
x:=x+a div 10;
writeln('resultat ',x)
end.