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

Question

Информатика

Ардалион

13 сентября, 16:45

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

+5

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