Добавил:
DIF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N5
.PAS Program V41_n5;
uses crt;
var
X,N :real;
i :byte;
BEGIN
clrscr;
X:=1;
for i:=1 to 6 do begin
n:=i;
X:=(n+1)*(X+1/X);
end;
writeln('X6 = ',X:0:8);
readln;
END.
uses crt;
var
X,N :real;
i :byte;
BEGIN
clrscr;
X:=1;
for i:=1 to 6 do begin
n:=i;
X:=(n+1)*(X+1/X);
end;
writeln('X6 = ',X:0:8);
readln;
END.
Соседние файлы в папке V41