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.
Ответ дал: Гость
a в квадрате плюс b в квадрате:
sqr(a) + sqr(b);
Ответ дал: Гость
1.найти разность показаний счетчика на конец месяца и на начало месяца.
Популярные вопросы