Информатика, опубликовано 2018-08-22 18:01:39 by Гость
Написать программу для вычисления произведения 15 случайных натуральных чисел. Каждое число принадлежит промежутку от 1 до 50
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.