Pascal — Cумма цифр числа, делимость

Прикладное программирование Программирование на Pascal Pascal — Cумма цифр числа, делимость

  • В этой теме 0 ответов, 1 участник, последнее обновление 1 месяц, 3 недели назад сделано Васильев Владимир Сергеевич.
Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #6803
      @admin
      StudLance.ru

      Задача: Из чисел от 10 до 99 вывести те, сумма цифр которых равна n и само число делится на m.

      Рассмотрим решение задачи с помощью различных видов циклов.

      Решение с помощью цикла Пока

      Блок-схема:

      Исходный код:

      program lr4_2b;
      
      var
        m, n, a, b, i: integer;
      begin
        writeln('Введите m ');
        readln(m);
        writeln('Введите сумму цифр n ');
        readln(n);
        i := 10;
        writeln('Числа ');
        while i < 99 do
        begin
          a := i div 10;
          b := i mod 10;
          if (a + b = n) and (i mod m = 0) then
            writeln(i);
          i := i + 1;
        end;
      end.

      Протокол работы:

      Решение с помощью цикла До

      Исходный код:

      program lr4_2b;
      
      var
        m, n, a, b, i: integer;
      begin
        writeln('Введите m ');
        readln(m);
        writeln('Введите сумму цифр n ');
        readln(n);
        i := 10;
        writeln('Числа ');
        repeat
          begin
            a := i div 10;
            b := i mod 10;
            if (a + b = n) and (i mod m = 0) then
              writeln(i);
            i := i + 1;
          end
        until i >= 99;
      end.

      Резльтаты работы программы эквивалентны приведенымм выше.

      StudLance.ru

Просмотр 0 веток ответов
  • Для ответа в этой теме необходимо авторизоваться.
×