Найти произведение 15 чисел последовательнрсти 3,10,17, (паскаль)

291

302

Посмотреть ответы 2

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

rkdkeidkoks61

Информатика

4,4(5 оценок)

Program n_1; var i: byte; mass: array[1..15] of integer; pr: integer; beginmass[1]: =3; for i: =2 to 15 dobeginmass[i]: =mass[i-1]+7; writeln(mass[i]); end; pr: =mass[1]; for i: =2 to 15 dopr: =abs(pr*mass[i]); writeln('произведение последовательности чисел равна: ',pr); end.