Язык Паскаль найдите сумму квадратов всех целых чисел от 1 до 15

Question

Информатика

Натуля

7 мая, 08:41

Язык Паскаль найдите сумму квадратов всех целых чисел от 1 до 15

+1

Ответы (1)

Знаете ответ?

Любомысл · Answer 1

var

i: byte;

sum: integer;

begin

sum : = 0;

for i : = 1 to 15 do

begin

sum : = sum + sqr (i) ;

end;

writeln ('Сумма квадратов чисел от 1 до 15 = ', sum) ;

readln;

end.