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

Question

Каринка

5 августа, 05:41

+4

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