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

Question

Информатика

Василей

3 июля, 02:29

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

+2

Ответы (1)

Знаете ответ?

Руфина · Answer 1

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.