Створіть три тестових набори вхідних даних для тестування проекту, призначеного для розв’язання задачі: «Два потяги виіхали одночасно з однієї станції у протилежних напрямках. Потрібно знайти відстань, на якій вони будуть один від одного через заданий час, якщо відома швидкість кожного потяга». Обчисліть очікувані результати за складеними тестами. Відкрийте проект, наприклад з папки Тема 6\3авдання 6.2\Проект 6.2.2. Протестуйте його на ваших тестових даних. Зробіть висновок, чи містить проект логічні помилки. Якщо так, то в чому може бути помилка.​

ответ: Pascal последняя версия, задача только на хз почему 1 неправильно

program C1;

var

 N, x: int64;

begin

 read(x);

 read(N);

 if (N > 0) and (N <= abs(x)) then  

   x := x + n

 else if (N > 0) and (N >= abs(x)) then

   x := x + n + 1;

 if (N < 0) and (abs(N) <= abs(x)) then

   x := x - abs(N)

     else

 if (N < 0) and (abs(N) >= abs(x)) then

   x := x - abs(N) - 1;

 if x <> 0 then

 writeln(x)

 else begin

   if N > x then

     x := x +1

   else

     x := x -1;

   writeln(x);

 end;

end.

Объяснение: