• Вопрос по информатике:

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

    • Автор:

      moon34

  • Ответ:

    Program summa;

     Uses crt;

     Var i, s,b:integer;

     Begin

      Write('Введите число ,b=');

      Readln(b);

     For i:= -10 to b do

       s:=s+sqr(i);

     Writeln('Сумма квадратов = ',s);

     End.

    • Отвечал:

      airesraug
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска