Var
a,n,i:integer;
Begin
n:=1;
For i:= 1 to 30 do Begin
a:=random(5)+1;
n:=n*a;
End;
Writeln('Произведение 30-ти случайных чисел (в диапазоне от 1 до 5) равна ',n);
End.
Очень легко: так как компьютеры разные, объясню. Просто наведите курсор мышки на <span>кнопку Развернуть/Восстановить подождите несколько секунд и появиться текст, И вы узнаете, что он означает.)))</span>
N=256
N=2^i
i=8
V=K*i=a*b*c*i=1*5*63*8=40*63=2520
Ответ: 2520