- Главная
- Вопросы и ответы
- Разработать алгоритм и составить программу на выбранном языке программирования ( Паскаль или Qbasic) для нахождения произведения цифр числа, полученного при умножении числа 12 на свой порядковый номер в списке группы.
Разработать алгоритм и составить программу на выбранном языке программирования ( Паскаль или Qbasic) для нахождения произведения цифр числа, полученного при умножении числа 12 на свой порядковый номер в списке группы.
Var
m, n, p: integer;
begin
Write(‘Введите свой номер в группе: ‘);
Readln(n);
n := n * 12;
p := 1;
repeat
m := n mod 10;
p := p * m;
n := n div 10
until n = 0;
Writeln(‘Результат ‘, p)
end.
Тестовое решение:
Введите свой номер в группе: 13
Результат 30