Задача

Дана последовательность следуещего вида: 1*1+2*2+...+n*n, где n - целое число, вводимое пользователем. Подсчитать сумму произведений и вывести на экран.


Решение:

Данный пример последовательности - это сумма квадратов натуральных чисел. Для нахождени суммы выражения организуем цикл, в котором каждый раз к сумме будем добавлять очередной квадрат числа.
Найти значение выражения 1*1+2*2+...+n*n 01 Uses Crt;
02 Var
03 n,s,i : Integer;
04
05 Begin
06 ClrScr;
07 Write('n = ');
08 Readln(n);
09 s:=0;
10 For i:=1 to n do
11 s:=s+i*i;
12 Writeln('s = ',s);
13 Readln
14 End.
01 Uses Crt;
02 Var
03 n,s,i : Integer;
04
05 Begin
06 ClrScr;
07 Write('n = ');
08 Readln(n);
09 s:=0;
10 For i:=1 to n do
11 s:=s+i*i;
12 Writeln('s = ',s);
13 Readln
14 End.

Пояснения к примеру

Натуральные числа (естественные числа) — числа, возникающие естественным образом при счёте (как в смысле перечисления, так и в смысле исчисления).