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