Входные данные: Вводится единственое натуральное число n, не превосходящее 100 Необходимо ввести вычислительную сумму

Question

Нинура

23 ноября, 09:41

+2

Ответы (1)

Знаете ответ на вопрос?

Смарагд · Answer 1

Program npow2;

var

n, i, s: integer;

begin

readln (n) ;

s : = 0;

for i : = 1 to n do

s : = s + i * i;

writeln (s) ;

end.