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

Question

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

Vaprosic · Answer

Простой вариант: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....

Популярные вопросы