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

Question

Информатика

Ратибор

4 сентября, 04:37

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

+3

Ответы (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.