давно
Старший Модератор
31795
6196
01.06.2017, 17:23
общий
это ответ
Здравствуйте, Ксюша!
Смотрите код.
[code lang=pascal h=250]var
k,n:integer;
a,b,f:real;
function pow(a,b:integer):real;
begin
if b=0 then pow:=1
else
if b>0 then pow:=a*pow(a,b-1)
else pow:=pow(a,b+1)/a;
end;
begin
write('enter n:');
readln(n);
a:=0;
f:=1;
for k:=1 to n do
begin
f:=f*k;
if k<>3 then b:=pow(k-3,k-5)*(k+7)/f
else b:=0;
a:=a+b;
end;
writeln('result:',a);
end.[/code]
ps:вопросы задавайте в мини-форуме.
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.