Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Решение по формулам

Автор: XIII06 23.06.2008 17:51

Выручайте студента

Задание:

Надо 2 файлика: .pas и .exe

Автор: _LeeRoy_ 23.06.2008 19: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.

form.zip ( 12.77 килобайт ) Кол-во скачиваний: 336

Автор: XIII06 23.06.2008 19:32

Цитата(_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.

form.zip ( 12.77 килобайт ) Кол-во скачиваний: 336

Спасибо!!