Question

Язык Паскаль (школьный уровень).
Танки шли M колоннами по N танков в каждой. Два из них вышли из строя, преградив путь идущим за ними. Определить количество танков, продолживших движение.
Входные данные:
В первой строке, через пробел, указывается количество колонн M (1 < M < 100) и количество танков в колонне N (0 < N < 100).
Во второй строке, через пробел, указывается номер колонны и порядковый номер в колонне первого сломавшегося танка.
В третей строке, через пробел, указывается номер колонны и порядковый номер в колонне второго сломавшегося танка.
Танк, идущий в голове любой колонны, имеет порядковый номер 1.
Выходные данные:
программа должна выводить количество танков, продолживших движение.
Пример
на входе:
3 4
1 2
2 4
на выходе:
8

Мой вариант программы автоматическую проверку не проходит...
https://edu.appcloud.su/code/

Answer 1

Попробуй заменить как у меня, но честно не знаю, везде работает и сайт выдаёт всё правильно...

Answer 2

В 6 и 7 строчках поменяй знаки > < на противоположные
Если танки поломались в одной колонне, то в скобочках нужно отнимать не максимальный номер поломавшегося танка, а минимальный
Исправленная версия:

var m,n,m1,n1,n2,m2,t: Integer;
begin
readln(m,n);
readln(m1,n1);
readln(m2,n2);
if(m1=m2) then
   if(n1<n2) then
      t:=m*n-(n-n1 + 1)
   else
      t:=m*n-(n-n2 + 1)
else
    t := m*n - (n-n1 + 1) - (n-n2 + 1);
writeln(t);
end.