for k: =(m-1) div 7 + 1 to n div 7 do write(k*7: 8); readln
end.
объяснение:
в одном цикле по диапазону чисел, введенных пользователем, проверяй, делится ли переменная цикла (каждое последующее число диапазона) на 7 без остатка. если делится, то выводи, если нет, то ничего не делай.
ответ:
var k,m,n: longint;
begin
write('m n ? '); readln(m,n);
for k: =(m-1) div 7 + 1 to n div 7 do write(k*7: 8); readln
end.
объяснение:
в одном цикле по диапазону чисел, введенных пользователем, проверяй, делится ли переменная цикла (каждое последующее число диапазона) на 7 без остатка. если делится, то выводи, если нет, то ничего не делай.