• дано натуральное n

    действительные а1 а2... аn (а энное)

    получить а1а2+а2а3....аn-1an

    в паскале

    заранее спасибо!

Ответы 1

  • vara:array[1..500] of integer;i,k,n:integer;begink:=0; write('n= '); readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do k:=k+a[i]*a[i+1]; writeln(k);end.

    • Автор:

      abe5s1j
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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