Question

Составить программу, вычисляющую произведение 3-х случайных чисел в диапазоне до 10​

Answer 1

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

1. begin
2.  var resultNumber := SeqRandomInteger(3, 1, 10).ToArray.Println.Product.Print;
3. end.

Pascal

1. var
2.  resultNumber, randomNumber, i: integer;
3. begin
4.  resultNumber := 1;
5.  randomNumber := 1;
6.  for i := 1 to 3 do
7.  begin
8.    randomNumber := Random(11);
9.    while randomNumber = 0 do  
10.      begin
11.        randomNumber := Random(11);
12.      end;
13.    Writeln(randomNumber);
14.    resultNumber := resultNumber * randomNumber;
15.  end;
16.  Writeln('Результат: ', resultNumber);
17. end.