Задать вопрос
9 марта, 05:00

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

+5
Ответы (1)
  1. 9 марта, 06:33
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составьте программу на Паскале, которая вводит 2 целых числа M и N и печатает все целые числа между M и N, делящиеся на 7, включая и сами ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы