Задание: Нажмите для просмотра прикрепленного файла
Надо 2 файлика: .pas и .exe
Полная версия: Решение по формулам
program form;
uses crt;
var a :real;
n,k: integer;
begin clrscr;
a:=1;
write('n = '); readln(n);
for k:=1 to n do
a:=(1/(k*k)+1)*a;
writeln('otvet = ', a:3:3);
readkey;
end.
Нажмите для просмотра прикрепленного файла
Цитата(_LeeRoy_ @ 23.06.2008 15:03) 
program form;
uses crt;
var a :real;
n,k: integer;
begin clrscr;
a:=1;
write('n = '); readln(n);
for k:=1 to n do
a:=(1/(k*k)+1)*a;
writeln('otvet = ', a:3:3);
readkey;
end.
Нажмите для просмотра прикрепленного файла
Спасибо!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.