оlesya
Опубликовано 6 лет назад по предмету Информатика от оlesya


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

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

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

в паскале

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

  1. Ответ
    Ответ дан lomon

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц