составить программу вычисления суммы квадратов всех целых чисел от - 20 до 30

Question

Мирослава Белякова

Информатика

8 октября, 01:24

составить программу вычисления суммы квадратов всех целых чисел от - 20 до 30

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Андрей Романов · Answer 1

var i, a, b:integer;

begin

a:=0;

b:=0;

for i:=-20 to 30 do

a:=sqr (i)

b:=a+b;

write (b)

end.

Строка с присвоением переменным начального значения "0" не во всех версиях Паскаль необходима.