Написать : петя любит ездить на такси. для него это не только удовольствие от быстрой и комфортной поездки, но и возможность всласть поторговаться с таксистом о цене проезда. торг между петей и таксистами всегда происходит по одному и тому же сценарию: — мне в аэропорт, заплачу 150 рублей. — нет, за 150 не повезу, поехали за 1000. — да ты что? ! у меня и нет столько! согласен за 200. — ты смеешься? давай хотя бы за 900. — ну хорошо, 250. — да ты хоть знаешь, сколько бензин стоит? 800 и поехали! … этот диалог продолжается до тех пор, пока они не сойдутся в цене. петя всегда увеличивает свою цену на одну и ту же сумму, а таксист таким же образом снижает ее. таксист не станет называть цену ниже той, которую предложит петя. в этом случае он согласится с его ценой. аналогичным образом поступит и петя. исходные данные в единственной строке даны 4 целых числа: a — стартовая цена пети, b — надбавка пети к своей цене, c — стартовая цена таксиста, d — скидка таксиста к своей цене (1 ≤ a, b, c, d ≤ 10000 результат выведите сумму, которую петя заплатит за проезд. пример исходные данные результат 150 50 1000 100 450

var    a, b, c, d: integer; begin    write('a = ');     readln(a);     write('b = ');     readln(b);     write('c = ');     readln(c);     write('d = ');     readln(d);

 

    while true do    begin      if a < c then      begin          a : = a + b;           if a < c then            c : = c - d          else          begin              writeln(' r = ', c);               break;         end;

      end      else      begin          writeln('r = ', a);           break;       end;     end;     readln; end.

 

петя любит ездить на такси. для него это не только удовольствие от быстрой и комфортной поездки, но и возможность всласть поторговаться с таксистом о цене проезда. торг между петей и таксистами всегда происходит по одному и тому же сценарию: — мне в аэропорт, заплачу 150 рублей.— нет, за 150 не повезу, поехали за 1000.— да ты что? ! у меня и нет столько! согласен за 200.— ты смеешься? давай хотя бы за 900.— ну хорошо, 250.— да ты хоть знаешь, сколько бензин стоит? 800 и поехали! …этот диалог продолжается до тех пор, пока они не сойдутся в цене. петя всегда увеличивает свою цену на одну и ту же сумму, а таксист таким же образом снижает ее. таксист не станет называть цену ниже той, которую предложит петя. в этом случае он согласится с его ценой. аналогичным образом поступит и петя. исходные данные в единственной строке даны 4 целых числа:   a  — стартовая цена пети,  b  — надбавка пети к своей цене,  c  — стартовая цена таксиста,  d  — скидка таксиста к своей цене  (1 ≤  a,  b,  c,  d  ≤ 10000). результат выведите сумму, которую петя заплатит за проезд. пример исходные данныерезультат 150 50 1000 100 450   в результате петя добьется своего.a+b=c+dзаплатил 450

.

Const n=? ; {кол-во элементов в массиве, написать число вместо "? "} var a,b: array[1..n] of integer; x,k,i,j: integer; begin   writeln('init massive: ');   for i: =1 to n do     begin     readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет}     a[i]: =x;     end;   k: =n div 2;   if (n mod 2)< > 0 then k: =k+1;   j: =1;   for i: =(k+1) to n do     begin     b[j]: =a[i];     j: =j+1;     end;   if (n mod 2)< > 0 then     begin     b[k]: =a[k];     k: =k-1;     j: =j+1;     end;   for i: =1 to k do     begin     b[j]: =a[i];     j: =j+1;     end;   for i: =1 to n do write(b[i],' '); end.

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