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

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

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

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

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

textual
Листинг программы
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. Таким образом, данный код выполняет следующие действия:

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

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

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