ЯЗЫК ПИТОН А) Требуется написать программу, которая вводит натуральное число N. Затем поочередно вводит N натуральных чисел в список и находит количество чисел, делящихся на 11, но не делящихся на 4.    

В) Требуется написать программу, которая вводит натуральное число N. Затем поочередно вводит N натуральных чисел в список и находит количество чисел, оканчивающихся на цифру 0 или на цифру 5.    

С) Напишите программу, которая вводит натуральные числа (их количество неизвестно, но известно, что в конце вводимой последовательности стоит 0) в список и находит количество чисел кратных 8, но не кратных 3.    

D) Напишите программу, которая вводит натуральные числа (их количество неизвестно, но известно, что в конце вводимой последовательности стоит 0) в список и находит количество четных чисел или чисел оканчивающихся на цифру 7.

Смотри таблицу во вложении.
В светло-зелёные клетки вводим расстояния, которые проехали коротышки на каждом виде транспорта.
В розовые - вводим цену за 1 км на каждом виде транспорта.

Таблица автоматически считает:
- Сколько каждый коротышка заплатил за каждую поездку (бежевые ячейки)
- Какое расстояние проехали все коротышки на одном виде транспорта (жёлтые)
- Сколько денег потратили все коротышки на одном виде транспорта (синие)
- Какое расстояние проехал каждый коротышка на всех видах транспорта (тёмно-зелёные)
- Сколько денег потратил каждый коротышка в сумме на всех видах транспорта (коричневые)
- Какое расстояние проехали все коротышки на всех видах транспорта (фиолетовая)
- Сколько денег всего потратили все коротышки в сумме на всех видах транспорта (красная)

Заменяет в строке
var
  s : string;
  i, lim : integer;
begin
  readln (s);
  i := 1;
  lim := length (s);
  while (i <= lim) do
  begin
    if s[i] in ['1'..'9'] then
    begin
      if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
      begin
        write ('ten');
        inc (i);
      end
      else
      case s[i] of
        '1' : write ('one');
        '2' : write ('two');
        '3' : write ('three');
        '4' : write ('four');
        '5' : write ('five');
        '6' : write ('six');
        '7' : write ('seven');
        '8' : write ('eight');
        '9' : write ('nine');
      end;
    end
    else write (s[i]);
    inc (i);
  end;
end.