Выведите на экран те числа из заданного диапазона , которые делятся на 7
Выведите на экран те числа из заданного диапазона , которые делятся на 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.
примерно так
Не нашли ответ?
Похожие вопросы