Найти произведение 15 чисел последовательнрсти 3,10,17,24,... (Паскаль)
Найти произведение 15 чисел последовательнрсти 3,10,17,24,... (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы