Определить номер цифры 3 в заданном числе, считая от конца числа - PascalABC.NET
Формулировка задачи:
Дано натуральное число. Определить номер цифры 3 в нем, считая от конца числа. Если такой цифры нет, ответом должно быть число 0, если таких цифр в числе несколько — должен быть определен номер самой правой из них.
Решение задачи: «Определить номер цифры 3 в заданном числе, считая от конца числа»
textual
Листинг программы
- WriteLn('Введите число N: '); ReadLn(N);
- k:=0;
- i:=0;
- repeat
- inc(i);
- if N mod 10=3 then begin k:=i; break; end;
- N := N div 10
- until N=0;
- WriteLn(k);
Объяснение кода листинга программы
- Пользователю предлагается ввести число N.
- Переменная k инициализируется значением 0.
- Переменная i инициализируется значением 0.
- В цикле repeat-until происходит деление числа N на 10 и проверка остатка от деления на 3. Если остаток от деления равен 3, то значение переменной i присваивается значению переменной k и цикл прерывается.
- После окончания цикла выводится значение переменной k.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
