Question

Напишите на языках Pascal и C++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе  28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3

Answer 1

Программа на языке Pascal:

program RandomNumbersPascal;

var
  num1, num2, sum, difference, product, quotient: real;

begin
  { Generate two random numbers }
  Randomize;
  num1 := Random;
  num2 := Random;

{ Calculate the sum, difference, product, and quotient }
  sum := num1 + num2;
  difference := num1 - num2;
  product := num1 * num2;
  quotient := num1 / num2;

{ Display the results }
  writeln('Number 1: ', num1:0:2);
  writeln('Number 2: ', num2:0:2);
  writeln('Sum: ', sum:0:2);
  writeln('Difference: ', difference:0:2);
  writeln('Product: ', product:0:2);
  writeln('Quotient: ', quotient:0:2);

end.

Программа на языке C++:

#include 
#include 
#include

using namespace std;

int main() {
    // Generate two random numbers
    srand(time(0));
    double num1 = (double)rand() / RAND_MAX;
    double num2 = (double)rand() / RAND_MAX;

// Calculate the sum, difference, product, and quotient
    double sum = num1 + num2;
    double difference = num1 - num2;
    double product = num1 * num2;
    double quotient = num1 / num2;

// Display the results
    cout << "Number 1: " << num1 << endl;
    cout << "Number 2: " << num2 << endl;
    cout << "Sum: " << sum << endl;
    cout << "Difference: " << difference << endl;
    cout << "Product: " << product << endl;
    cout << "Quotient: " << quotient << endl;

return 0;
}

Моделирование выбора кости домино:

```pascal program DominoProbabilityPascal;

var dominoSet: array[0..27] of string = ('0-0', '0-1', '0-2', '0-3', '0-4', '0-5', '0-6', '1-1', '1-2', '1-3', '