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

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

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

uses PT4;

var i,n:integer;

var summ:real;

begin

Task('For37');

read(n);

for i:=1 to n do

summ:=summ+exp(i*ln(i));

write(summ);

end.

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