Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

    • Автор:

      mina
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years