1 задача. var a, b, c: integer; begin write('Введите через пробел три числа: '); readln(a, b, c); if (a > b) then if (b > c) then write('Сумма двух наибольших чисел: ', a + b) else write('Сумма двух наибольших чисел: ', a + c) else if (c > a) then write('Сумма двух наибольших чисел: ', c + b) else write('Сумма двух наибольших чисел: ', b + a) end.
2 задача. var x, f: real; begin write('Введите значение x: '); readln(x); if (x > 0) then f := (2 - x) / (x * x) else f := 6 - (x * x * x); writeln('Значение функции при данном x: ', f) end.
3 задача. var a, b: integer; write('Введите через пробел два числа: '); readln(a, b); writeln('Сумма чисел: ', a + b); writeln('Разность чисел: ', a - b); writeln('Произведение чисел: ', a * b) end.
1. Товарняк заезжает жопой в тупик, оставляет там 4 вагона и проезжает вперед по главной ветке. 2. Пассажирский проезжает тупик, затем сдает назад в тупик и забирает эти 4 вагона, затем проезжает вперед и сдает назад на главную ветку, где отцепляет 4 товарных вагона. 3. Пункты 1 и 2 повторяются еще два раза и позади пассажирского поезда окажется 12 вагонов товарняка. 4. Товарняк с оставшимися 3 вагонами сдает назад в тупик и пассажирский спокойно проезжает по своим делам. Миссия выполнена - пассажирский пропущен. 5. Товарняк проезжает вперед, затем сдает назад по главной ветке и забирает свои 12 вагонов.
