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

Question

Информатика

Владимирушка

16 июля, 22:40

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

+5

Ответы (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.