Pascal. Ребят что изменить??

[IcE^BeaR]

program p3;
uses crt;
var
k,n1,n2,n3:integer;
sum,r1,r2,r3,prv,parametr,l:real;
begin
clrscr;
writeln('vvod n1');
readln(n1);
writeln('vvod n2');
readln(n2);
writeln('vvod n3');
readln(n3);
writeln('vvedite parametr');
readln(parametr);
r1:=0;
for k:=1 to n1 do begin
sum:=(k*k+1)/(k+2+parametr);
r1:=sum+r1;
end;
r2:=1;
for k:=1 to n2 do begin
prv:=(2*k+1)/(k*k+1);
r2:=prv*r2;
end;
r3:=0;
for k:=1 to n3 do begin
sum:=(2*k*k+1)/(k+3);
r3:=sum+r3;
end;
l:=(r1+r2)/r3;
writeln('l=' ,l:6:5);
readln;
end.

[IcE^BeaR]

program p3;
uses crt;
var
n,v,MM,NN:integer;
przv,sum,parametr : double;
begin
clrscr;
writeln('vvedite NN');
readln(NN);
writeln('vvedite MM');
readln(MM);
writeln('parametr');
readln(parametr);
przv:=1;
for n:=1 to NN do begin
sum:=0;
for v:=1 to MM do sum:=sum+exp(parametr*ln(v));
przv:=przv*n*sum;
end;
writeln('przv= ',przv:6:3);
readln;
end.

[IcE^BeaR]

program p1;
uses crt;
var k:longint;
sum:real;
begin
clrscr;
sum:=0;
k:=0;
while sum <=20 do begin
Inc(k);
sum:=sum+(k*k+1)/(227*k+2);
end;
writeln(k);
readln;
end.

[IcE^BeaR]

program p1;
uses crt;
var
k:integer;
sum,Ak,y,r,z:real;
begin
clrscr;
sum:=0;
k:=1;
r:=1+12/1;
z:=-1;

Ak:=(k+r*r)/(k*k*k+r);
sum:=Ak;
while ak >=0.0001 do begin
k:=k+1;
Ak:=(k+r*r)/(k*k*k+r);
sum:=sum+z*ak;
z:=-z;
end;

write('sum=',sum);
readln;
end.



ЗЫЖ - не могу проверить на ноуте, не поддерживает 64битную систему.

[whatever]

На первых парах начал править, но потом... Я так понимаю это готовые задания других вариантов? Формулы перепиши просто. Для такой "задачки" даже комп не нужен, можно и на листике переписать.

[IcE^BeaR]

Сообщение от whatever

На первых парах начал править, но потом... Я так понимаю это готовые задания других вариантов? Формулы перепиши просто. Для такой "задачки" даже комп не нужен, можно и на листике переписать.

так да. я боюсь не там вписать и вще. проверить то не смогу( соображаловка уже не варит неделю из универа не вылезаю)

[IcE^BeaR]

Сообщение от whatever

На первых парах начал править, но потом... Я так понимаю это готовые задания других вариантов? Формулы перепиши просто. Для такой "задачки" даже комп не нужен, можно и на листике переписать.

помоему не во всех задачах только формулу. можешь хотябы выделить строки,где нужно поменять ибо я примерно знаю,ну а если не правильно?(

[Vanta11a]

Вам же ответили. У Вас есть примеры кода. Задавайте четкие вопросы или платите за переделывание заданий, по-моему все просто.