Определить номер цифры 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.