Написать программу на Pascal

[DimonChik113]

Вычислить сумму n членов последовательности Ap=(1+1/p)*(1+1/p)
p=1
p=2
p=3

Есть !!!
Ща вычислим !!!

[Petrovi4]

ICQ - 324-783-266
Сделаю быстро, качественно, недорого.
Предоплаты не требую!!!
=================================== =======
Задание еще актуально, я справиться не смог

[sheka]

Задание еще актуально, я справиться не смог - Это шутка?
Если нет - DimonChik113, обращайся 255507394.

[Petrovi4]

Пишите, товарищ sheka.
Шутки в сторону.

[Loky]

Сделаю за 50 р за 15 минут
стучись 2552три43

[syava]

вот решение :
var
a,p:real;
begin
for p:=1 to 3 do
a:=((1+1)/p)*((1+1)/p);
end.

[QuadroX]

Syava, ты наверное разделом ошибся.

[Базиля]

syava, да еще и немного не правильное решение то забыл А умножать на P, после каждой итерации.
p.s. извиняюсь, но раз он код выложил уже

[Onyma]

задание дано не чётко (вернее не чётко воспринято): то ли A * p, то ли A[p]. . вот для первого варианта:

var
a,p:real;
begin
for p:=1 to 3 do
a:=((1+1)/p)*((1+1)/p)/p;
end.

второй вариант уже был :D

[Onyma]

опс, - там надо поправить: a:=((1+1)/p)*((1+1)/p)/p + a;
и после begin: a := 0;
и во втором варианте.