Составить рекурсивный алгоритм и написать программу, вычисляющую Pk(n).
Вот я тут написал чуток, но что-то она не работает=(( не понимаю... Помогите плиз!
program _6_8;
var
S,k,n : integer;
function P(k,n:integer):integer;
var i:integer;
begin s:=0;
for i:=1 to k do begin
if (i=n) and (i=1) then P:=1 else
if i>n then P:=0 else
end;
S:=S+P(i,n-i)
end;
begin
writeln('vvedite k,n');
read(k,n);
P(k,n);
write(S);
end.
Добавлено через 2 мин.
кстати для проверки можно взять k=2 и n=5, должно получиться 2! а мну ничего не получается, кстати когда в универе делал 0 получался, щас ваще ошибку 202 выдает... по памяти писал... может что-то упустил...