Паскаль абс

Две кошки загнали мышь в трубу. Первая кошка находится в точке с координатой x, вторая кошка находится в точке с координатой y, мышь находится в координате z. Определите, какая из кошек первой доберется до мыши, если кошки передвигаются с одной скоростью. В случае если кошки одновременно добираются до мышки, то тогда кошки ссорятся из-за добычи, и мышь ускользает от них. Формат входных данных Единственная строка входного файла содержит три целых числа x, y, z (1 < = x, y, z < = 1 000). Все числа различны. Формат выходных данных Если первая кошка доберется до мышки раньше второй выведите "1" (без кавычек). В случае если вторая кошка доберется до мыши раньше первой выведите "2" (без кавычек). В случае если мышка ускользает выведите "3" (без кавычек).

Question

Информатика

Май

13 декабря, 23:51

Паскаль абс

Две кошки загнали мышь в трубу. Первая кошка находится в точке с координатой x, вторая кошка находится в точке с координатой y, мышь находится в координате z. Определите, какая из кошек первой доберется до мыши, если кошки передвигаются с одной скоростью. В случае если кошки одновременно добираются до мышки, то тогда кошки ссорятся из-за добычи, и мышь ускользает от них. Формат входных данных Единственная строка входного файла содержит три целых числа x, y, z (1 < = x, y, z < = 1 000). Все числа различны. Формат выходных данных Если первая кошка доберется до мышки раньше второй выведите "1" (без кавычек). В случае если вторая кошка доберется до мыши раньше первой выведите "2" (без кавычек). В случае если мышка ускользает выведите "3" (без кавычек).

+1

Ответы (1)

Знаете ответ?

Кируся · Answer 1

Var x, y, z:integer;

begin

readln (x, y, z) ;

if abs (x-z)
then writeln (1)

else if abs (x-z) >abs (y-z)

then writeln (2) else writeln (3) ;

end.

Пример: 2 8 4

1