Составьте программу ** Паскале, которая вводит 2 целых числа M и N и печатает все целые...

Question

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

Answer 1

var

   N, M, prov: longint;

begin

   readln(N);

   readln(M);

   if N < M then

   begin

       prov := N;

       while prov

       begin

           if prov mod 7 = 0 then

               writeln(prov);

           inc(prov);

       end;

   end

   else  

   begin

       prov := M;

       while prov

       begin

           if prov mod 7 = 0 then

               writeln(prov);

           inc(prov);

       end;

   end;

end.