Написать программу для вычисления произведения 15 случайных натуральных чисел. Каждое число принадлежит промежутку от 1 до 50
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад