Петя любит ездить на такси. Для него это не только удовольствие от быстрой и комфортной поездки, но и возможность всласть поторговаться с таксистом о цене проезда. Торг между Петей и таксистами всегда происходит по одному и тому же сценарию:
— Мне в аэропорт, заплачу 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
.
1. Сходство: независимо от визуально вы перемещаетесь от одного участка текста к другому
Различия: при перемещении с клавиш управления курсором позиция ввода (то место, куда будет вводиться текст при нажатии буквенно-цифровых кнопок клавиатуры) меняется. Во втором случае, независимо от того, какой участок текста виден на экране (после перемещения), позиция ввода осталась неизменной и при попытке ввода текста произойдёт автоматический возврат к позиции текстового курсора.
2. Сходства: В обоих режимах при нажатии алфиватно-цифровых кнопок клавиатуры происходит вывод на экран (в позиции курсора) набранного символа.
Различия: в режиме вставки текст, расположенный под курсором, сдвигается вправо, а в освободившуюся позицию впечатывается набранный символ. В режиме замены сдвижка вправо не происходит и впечатываемый символ затирает тот, что стоял на этом месте.
uses crt;
Var i:integer;
a:array[1..15] of char;
Begin
Writeln('Введите массив');
for i:=1 to 15 do
readln(a[i]);
for i:=15 downto 1
Writeln(a[i]);
readln;
end.