Составьте программу на Паскале, которая вводит 2 целых числа M и N и печатает все целые числа между M и N, делящиеся на 7, включая и сами эти числа. Замечание: программа должна учитывать, что заранее не известно, какое из чисел M или N больше другого.

Question

Информатика

Юхтимия

11 февраля, 17:17

Составьте программу на Паскале, которая вводит 2 целых числа M и N и печатает все целые числа между M и N, делящиеся на 7, включая и сами эти числа. Замечание: программа должна учитывать, что заранее не известно, какое из чисел M или N больше другого.

+5

Ответы (1)

Знаете ответ на вопрос?

Ярём · Answer 1

var i, n, k, f:integer;

begin

writeln ('Vvedite n: ') ; readln (n) ;

for i:=1 to n do

begin

k:=i; f:=0;

while (k0) do

begin

if (k mod 10>0) and (i mod (k mod 10) >0) then f:=1;

k:=k div 10;

end;

if (f=0) and (i mod 10>0) then write (i,' ') ;

end;

end.