Описание миссии На связи агент Кир. Двигаюсь в авангарде экспедиции. Задача - разведать путь на станцию.

Все коридоры надежно перекрыты защитным протоколом. Нам приходится проникать через технические коммуникации, которые здесь все опутывают. Проблема в том, что карты туннелей у нас нет. Один из них позволит нам проникнуть на территорию объекта - но если мы ошибемся, дорогой, то останемся здесь навсегда.

В терминалах остались данные по техническим туннелям - но только обрывочные. Пересылаю их тебе для анализа.

Агент, нужно сопоставить все данные между собой и выбрать путь для экспедиции.

Осталось попыток: 1
КАКОЙ ИЗ ТУННЕЛЕЙ ВЕДЕТ НА ГАЗОДОБЫВАЮЩУЮ СТАНЦИЮ?
RL-15
GT-22
TX-80
WY-03
KQ-47
ответит срочто

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.