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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
