Прошу помогите Андрей очень любит ездить по железной дороге. Он садится у окна и внимательно следит за местностью, которую он проезжает. Особенно он обращает внимание на километровые столбы. Каждый столб с километражем, который при делении на 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<br> write ((b - a) div 7 + 1) else write (0); end.
Вы не поверите, но выходные данные даются для тестового решения, чтобы составив программу, человек мог её запустить и убедиться, что она работает верно.
Когда на ЕГЭ - там действительно для "бумажной" трассировки, но тут у нас не ЕГЭ и если Вас модератор просит дать тестовое решение, то не нужно пускаться в глобальные рассуждения.
Модератора убедит добавленная в ответ после текста программы выдача... копипаст пока что никто не отменял
Вот и напишите, хоть "от балды". Потому что видимо Вы не понимаете, что потом задание с решением в архив пойдет и там комментариев этих всех уже не будет.
И потом, Вы серьезно думаете, что я не представляю, как выглядит выдача?
Кстати, в Вашем "от балды" я не увидел вводимых данных
Еще раз: если приведен набор входных и выходных данных, должно быть приведено тестовое решение. Если нет - достаточно текста программы.