Составить программу нахождения значенння функции
y = 1 +1 / (2 * 2) +1 / (3 * 3) + ... + 1 / (n * n), если n = 10

Var y, i: integer;
y:= 0
for i:= 0 to 10 do
y:= y + 1 / (i * i);

все, вроде. Проверь на баги, а то у меня нет среды разработки паскаля на PC

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.