Question

Разработать алгоритм и составить программу на выбранном языке программирования ( Паскаль или Qbasic)  для нахождения  произведения цифр числа, полученного при умножении числа 12 на свой порядковый номер в списке группы.

Answer 1

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