Ниже в табличной форме представлен фрагмент базы данных «Отправление поездов дальнего следования». Пункт назначения Категория поезда Время в пути Вокзал
Кисловодск
скорый
31:22 Казанский
Кисловодск
скорый
35:37
Курский
Кишинёв
пассажирский
31:50
Киевский
Красноярск
скорый
62:10
Казанский
Красноярск
скорый
60:35 Ярославский
Кременчуг
скорый
17:35
Курский
Круглое Поле
скорый
21:12 Казанский
Мариуполь
скорый
22:55
Курский
Новый Уренгой
фирменный
64:46 Ярославский
Новый Уренгой
скорый
63:11
Курский
Одесса
скорый
22:28
Киевский
Одесса
скорый
25:39
Киевский
Определи количество записей в этом фрагменте, удовлетворяющих условию:
(Вокзал = «Киевский») ИЛИ (Время в пути < 20:00).
(В ответе укажи одно число –
искомое количество записей)
отпат: :​

Что-то у меня не придумывается меньше, чем за 18 телодвижений.

1. Залил полный бак в 10-литровый
2. Перелил его в 9-литровый. В 10 остался 1 литр
3. 9 опустошил, теперь в нём пусто, а в 10 по-прежнему 1 л.
4. перелил 1 л в 9.
Этот 1 литр - назовём его переходящим остатком.

Опять погнали те же 4 телодвижения, по результатам переходящим остатком будет 2 литра.

Ещё раз - и получили переходящий остаток 3 литра
Ещё раз, и получили 4 литра. К этому моменту сделали этот цикл уже 4 раза, итого 4*4 = 16 движений.

Опять делаем этот же цикл, но достаточно двух первых операций, и в 10-литровом баке получаем остаток 5 литров.

Итого, 16+2 = 18.

Ну, у меня так получилось. Может кто лучше придумает.

Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250