Требуется вычислить число a по формуле a = (k^0 + k^1 + k^2 + k^3 … + k^n ) mod pопределениеa ≡ b (mod m), b это остаток деления а на m. пример: 41 ≡ 2 (mod 13), 41 = 2 + 13*3входные данныевходные данные содержит числа n, k (1 ≤ n, k ≤ 106) и p(1 ≤ p ≤ 109 выходные данныенужно вывести одно целое число - значение a.замечание 1) [5, 2, 10000], ответ: 1 + 2 + 4 + 8 + 16 + 32 = 63 mod(10000)

Все нормальные люди делают это так: procedure f(n: integer); forward; procedure g(n: integer); forward; procedure f(n: integer); begin   writeln('вызов f(',n,') - *');   //write('*');   if n> 10 then f(n-2) else g(n);   writeln('завершение f(',n,')') end; procedure g(n: integer) ; begin   writeln('вызов g(',n,') - **');   //write('**');   if n> 1 then f(n-3);   writeln('завершение g(',n,')') end; begin   f(20) end. результат вызов f(20) - * вызов f(18) - * вызов f(16) - * вызов f(14) - * вызов f(12) - * вызов f(10) - * вызов g(10) - ** вызов f(7) - * вызов g(7) - ** вызов f(4) - * вызов g(4) - ** вызов f(1) - * вызов g(1) - ** завершение g(1) завершение f(1) завершение g(4) завершение f(4) завершение g(7) завершение f(7) завершение g(10) завершение f(10) завершение f(12) завершение f(14) завершение f(16) завершение f(18) завершение f(20) считаем звездочки, их 17. осталось оформить ответ, сделав вид, что это не программная выдача, а "я такой умный, на бумажке расписал". а "ненормальные люди" и в самом деле делают это вручную, не понимая, что ручной разбор рекурсии такой длины - это глупость.

Вот программа, если площадь основания дана. program нахождениеплощадицилиндра; var  a,b: real; begin    writeln('введите площадь основания цилиндра.');   readln(a);   writeln('введите высоту цилиндра.');   readln(b);     writeln('объем цилиндра равен ', a*b, '.');   end. если площадь основания не дана, а дан радиус основания цилиндра: program нахождениеплощадицилиндра; var  a,b,c: real; begin    writeln('введите радиус основания цилиндра.');   readln(a);   writeln('введите высоту цилиндра.');   readln(b);     writeln('объем цилиндра равен ', pi*sqr(a)*b, '.');   end.