Найдите сумму квадратов целых чисел от 10 до 20 - Turbo Pascal

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

Найдите сумму: а)квадратов целых чисел от 10 до 20,б)чисел, обратных квадратам первых 100 натуральных.

Решение задачи: «Найдите сумму квадратов целых чисел от 10 до 20»

Листинг программы

var i:integer;
    s:real;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i/i;
write('S=',s)
end.

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

В данном коде используется цикл for, который выполняется от 1 до 100. Внутри цикла переменная s инициализируется значением 0. Затем, для каждого значения i от 1 до 100, переменная s увеличивается на 1/i. После выполнения цикла, значение переменной s выводится на экран с помощью функции write. Таким образом, данный код выполняет следующие действия:

Инициализирует переменную s значением 0.
Выполняет цикл for, который проходит от 1 до 100.
Для каждого значения i внутри цикла, переменная s увеличивается на 1/i.
По завершении цикла, значение переменной s выводится на экран.