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

Question

Препедигна

3 июля, 00:15

+5

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