Есть ответ 👍

Запиши все делители произведения: x2⋅y, если x и y — различные числа.

272
443
Посмотреть ответы 1

Ответы на вопрос:


Uses crt; const n=10; var j: array [1..n] of real;     sum: real;     b: integer; begin       sum: =0;       for b: =1 to n do           j[b]: =sin(b)/cos(b);       for b: =1 to n do           writeln(j[b]: 5: 3);       for b: =2 to n-1 do           if (j[b]> j[b+1]) and (j[b]> j[b-1]) then sum: =sum+j[b];       if j[1]> j[2] then sum: =sum+j[1];       if j[n]> j[n-1] then sum: =sum+j[n];       writeln;       write('sum=',sum: 5: 3); end.

Популярно: Информатика