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