Найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b> =-10 .

269

Посмотреть ответы 2

Ответы на вопрос:

travisbeats

Информатика

4,7(56 оценок)

var b,i,sum,sq: integer;

begin

readln (b);

for i: =-10 to b do

begin

sq: =sqr(i);

sum: =sum+sq;

end;

writeln (sum);

end.

lilichka0109

Информатика

4,8(95 оценок)

Получения-Монитор, сканер, принтер, телефон Передача-Систем.блок, телефон, ноутбук, радио, телевизор. Обработка-процесор, принтер, сканер, клавиатура, монитор Исп-Пк, ноутбук, телефон, процесор, и тд.