Question

Даны числа a и b. Для каждого из чисел промежутка от a до b требуется вывести само число, число, превосходящее данное на 5 и остаток от деления данного числа на 6. Формат входных данных В единственной строке находятся два целых числа a и b, (0≤a≤b≤105)(0≤a≤b≤105). Формат выходных данных Необходимо вывести b−a+1b−a+1 строку троек чисел через пробел. PASKAL(НЕ C++)

Answer 1

var

  a, b, i: integer;

begin;

  read(a, b);

  for i:=a to b do 

  writeln(i, ' ',i+5,' ',i mod 6);

end.