Локатор ориентирован на одну из сторон света ("с" — север, "з" — запад, "ю" — юг, "в" — восток) и может принимать три цифровые команды: 1 — поворот налево, –1 — поворот направо, 2 — поворот на 180 градусов. дан символ c — исходная ориентация локатора и числа n1 и n2 — две посланные ему команды. вывести ориентацию локатора после выполнения данных команд. написать программу на языке паскаль

Const   destinations = 'сзювсзювсзюв';     {предварительно сформированная строка ориентаций} var   c : char;   n1, n2, position : integer; begin   write('исходная ориентация локатора: ');   readln(c);   write('первая команда поворота: ');   readln(n1);   write('вторая команда поворота: ');   readln(n2);   position : = pos(c, destinations) + 4;   {устанавливаем позицию на положение заданного направления}   position : = position + n1; {направление после первого поворота (определяется destinations[pos])}   position : = position + n2; {направление после второго поворота (определяется destinations[pos])}   writeln('конечная ориентация: ', destinations[position]); end.  

Program programma; uses crt; var i: integer;       a: array [1..15] of integer; begin clrscr;           randomize;                   for i: =1 to 15 do                                    a[i]: =random(200)-100;                     writeln('массив: ');           for i: =1 to 15 do                            write(a[i]: 5);                   for i: =1 to 15 do             begin           a[i]: =-a[i];           if  (a[i]< -50) then  a[i]: =a[i]*2;           end;           writeln; writeln; writeln('новый массив: '); for i: =1 to 15 do                            write(a[i]: 5);       readln; end.

Var s: string;       k, kol: integer; begin     kol : = 0;     readln(s);     while pos(' ',s) < > 0 do   begin       k : = pos(' ',s);       if k < > 0 then           if k = 4 then begin             kol : = kol + 1;             delete(s,1,4);           end else             delete(s,1,k);       end;     if length(s) = 3 then begin           kol : = kol + 1;           delete(s,1,3);       end;     writeln(kol); end.