Question

андрей любит ездить по железной дороге. он садится у окна и внимательно следит за местностью, которую он проезжает. особенно он обращает внимание на километровые столбы. каждый столб с километражем, который при делении на 7 дает в остатке 3, он считает «счастливым». составьте программу, которая бы определяла количество «счастливых» столбов, если во время езды он проезжает столбы с отметками от a до b. входные данные1 26 49 выходные данные1 3 входные данные2 3 10 выходные данные2 2

Answer 1

Простой вариант:

var
  i, c, a, b : integer;
begin
  c := 0;
  read (a, b);
  for i := a to b do
    if (i mod 7 = 3) then
      c := c + 1;
  write (c);
end.

оптимальный вариант

var
  a, b : integer;
begin
  read (a, b);
  while a mod 7 <> 3 do
    a := a + 1;
  while b mod 7 <> 3 do
    b := b - 1;
  if (a <= b) then
    write ((b - a) div 7 + 1)
  else
    write (0);
end.