07.04.2009, 13:12
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
С нами:
10255414
Репутация:
151
|
|
Сообщение от #Wolf#
pascal
вычислить у=х+х²/2+х³/3........хⁿ/n , где х вводится с клавиатуры, а n принимает значение от 1 до 15
нужно осуществить с использованием 2 вложенных циклов.
вайл..а внутри фор
буду благодарен (+8)
Код:
program st;
var
y,n,i:integer;
res:real;
x:longint;
begin
n:=2;
writeln('Vvodim x');
readln(y);
res:=y;
x:=y;
while n<=15 do begin
x:=y;
for i:=1 to n-1 do
x:=x*y;
res:=res + x/n;
writeln(x,'/',n,'=',x/n);
n:=n+1;
end;
writeln('Result',res);
end.
Думаю, так вполне подойдёт 
|
|
|