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

Ответы 2

  • var i,s:integer;

    begin

    s:=0;

    for i:=-20 to 30 do

    s:=s+i*i;

    Writeln(s);

    end.

     

     

    Вопросы, ошибки, недочеты в ЛС

    • Автор:

      elvis4
    • 5 лет назад
    • 0
  • var x,y:integer;begin for y:=-20 to 30 x:=x+sqr(y);writeln(x);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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