Комментарии: Решаем задачи Абрамян на Паскале. For38

Автор: Anton

Anton — Wed, 16 Mar 2016 15:04:24 +0000

Это решение, но это не классический pascal. 🙂
Скорее всего ABCPascal.
И я надеюсь, что автор этого учебника не предполагал использования данной функции. 🙂
А так решение правильное… (немного медленнее должно работать, может даже памяти есть по больше будет) Но правильное..
Видите какая реакция у меня на это решение, это потому что я старый. 🙂

Автор: Вадим

Вадим — Wed, 16 Mar 2016 13:03:12 +0000

read (n);
s:=0;
for i:=1 to n do s:=s+power(i, n-i+1);
write (s);

Автор: Кирилл

Кирилл — Thu, 11 Dec 2014 20:20:42 +0000

uses PT4;
var i,n:integer;
var summ:real;
begin
  Task('For38');
read(n);
for i:=0 to n-1 do
   summ:=summ+exp((n-i)*ln(i+1));
   write(summ);
end.

uses PT4;

var i,n:integer;

var summ:real;

begin

Task('For38');

read(n);

for i:=0 to n-1 do

summ:=summ+exp((n-i)*ln(i+1));

write(summ);

end.