22. Дано натуральное п. Вычислить:(скрин примера вложен) - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Дано натуральное п. Вычислить(Free pascal): Или хотя бы скажите какую формулу применять

Решение задачи: «22. Дано натуральное п. Вычислить:(скрин примера вложен)»

textual
Листинг программы
var s:real;
    i,n:integer;
begin
  write('n = ');readln(n);
  s:=0;
  for i:=1 to n do
      s:=s+1/(i*i);
  write('s = ',s:0:4);
  readln
end.

Объяснение кода листинга программы

  1. Объявлены три переменные: s, i, n.
  2. Пользователю предлагается ввести значение переменной n.
  3. Значение переменной s инициализируется нулем.
  4. Задается цикл от 1 до n.
  5. Внутри цикла значение переменной s увеличивается на 1/i^2.
  6. После окончания цикла выводится значение переменной s с точностью до четырех знаков после запятой.
  7. Программа ожидает ввода пользователя для завершения работы.

Оцени полезность:

5   голосов , оценка 4.6 из 5
Похожие ответы