• Написать программу "Вычислить сумму ряда
    1+1.5+2+2.5+3+3.5+ .. + 30"

Ответы 1

  • Program RowSum;Const min = 1; a = 0.5; max = 30;Var b, c: Real;i: Integer;Beginb := a;c := 0;For i := min To max * 2 - 1 DoBeginb := b + a;c := c + b;End;WriteLn('Сумма ряда равна ', c:5:2);ReadLn;End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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