Разработать алгоритм и составить программу на выбранном языке программирования ( паскаль или 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

сначала определяем к-во символов в каждой  строке

1-1 2-3 3-7 4-15 5-31 6-63 7-127

7-я строка имеет 127 символов и состоит из символа g к которому слева добавлено

две 6-х строки, определяем номера начала и конца каждой строки

6(1-63)  6(64-126)  g(127)

видим что нужные символы во 2-й 6-й строке

6-я строка состоит из символа f к которому слева добавлено

две 5-х строки, определяем номера начала и конца каждой строки

5(64-94) 5(95-125) f(126)

нужные  символы во 2-й 5-й строке

5-я строка состоит из символа e к которому слева добавлено

две 4-х строки, определяем номера начала и конца каждой строки

4(95-109) 4(110-124) e(125)

и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней, 

aabaab c(116)  a(117) a(118) b(119) a(120) a(121) b(122) c(123) d(124)

таким образом нужные символы caabaa

алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки

program z2_65; uses crt; label a1,a2,a3,a4,a5,a6,a7; var a,s,h,rv,ro,p: real; n: integer; beginclrscr; writeln('укажите номер пункта: '); writeln('1. дана сторона треугольника.'); writeln('2. дана площадь треугольника.'); writeln('3. дана высота треугольника.'); writeln('4. дан радиус вписанной окружности треугольника.'); writeln('5. дан радиус описанной окружности треугольника.'); read(n); case n of1: begin write('a='); read(a); goto a1; end; 2: begin write('s='); read(s); goto a2; end; 3: begin write('h='); read(h); goto a3; end; 4: begin write('r='); read(rv); goto a4; end; 5: begin write('r='); read(ro); goto a5; end; elsebeginwrite('такого номера пункта нет.'); goto a7; end; end; a1: rv: =a/2; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a2: a: =sqrt(4*s/sqrt(3)); h: =2*s/a; rv: =a/2; ro: =a/sqrt(3); goto a6; a3: a: =2*h/sqrt(3); s: =a*h/2; rv: =a/2; ro: =a/sqrt(3); goto a6; a4: a: =2*rv; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a5: a: =sqrt(3)*ro; s: =(a*a*a)/(4*ro); h: =2*s/a; rv: =a/2; a6: writeln('a=',a: 2: 2); writeln('s=',s: 2: 2); writeln('h=',h: 2: 2); writeln('r=',ro: 2: 2); writeln('r=',rv: 2: 2); a7: readkey; end.