Блог для маленьких школьников и их родителей
ШколаЛа

Найти все натуральные числа, не превышающие заданного n и делятся на каждую из своих цифр (в десятичной…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Найти все натуральные числа, не превышающие заданного n и делятся на каждую из своих цифр (в десятичной системе счисления)

на языке — C

Ответов к вопросу: 1
  • tinakg
    11.06.2024 | 23:02

    // вот тебе решение на паскале, в си сам переделывай
    function Check(n: integer): boolean;
    begin
        result := true;
        var T := n;
        while T > 0 do
        begin
            if T mod 10 = 0 then //проверка цифры на ноль
            begin
                T := T div 10;
                continue;
            end;
            if n mod (T mod 10) = 0 then
                T := T div 10
            else
            begin
                result := false;
                exit;
            end;
        end;
    end;

    begin
        var N := ReadlnInteger(‘N =’);
        for var i := 1 to N do
            if Check(i) then Print(i);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.