Написать программу для вычисления произведения 15 случайных натуральных чисел. Каждое число принадлежит промежутку от 1 до 50

Question

Феозва

13 июня, 14:58

+2

Ответы (1)

Знаете ответ?

Ростиславка · Answer 1

var

i, p, n: integer;

begin

p:=1;

randomize;

for i:=1 to 15 do

begin

n:=1 + random (50) ;

p: = p * n

end;

Writeln (' p=', p)

end.