Question

Игральный кубик бросается три раза (выпадает три случайных значения). Из этих чисел составляется целое число, программа должна найти его квадрат. Пример: Выпало очков: 1 2 3 Число: 123 Его квадрат: 15129 На Паскале

Answer 1

(если что я так понял)

import random

kubic = random.randint(1, 3)

print(cubic)

Answer 2

Для создания программы на языке Pascal, которая бросает игральный кубик три раза, записывает выпавшие значения и затем находит квадрат полученного числа, вы можете использовать следующий код:

program DiceSquare;
var
  dice1, dice2, dice3, combinedNumber, square: integer;
begin
  // Инициализация генератора случайных чисел
  Randomize;

// Бросаем игральный кубик три раза
  dice1 := Random(6) + 1;
  dice2 := Random(6) + 1;
  dice3 := Random(6) + 1;

// Составляем целое число из результатов бросков
  combinedNumber := dice1 * 100 + dice2 * 10 + dice3;

// Находим квадрат полученного числа
  square := combinedNumber * combinedNumber;

// Выводим результаты
  writeln('Выпало очков: ', dice1, ' ', dice2, ' ', dice3);
  writeln('Число: ', combinedNumber);
  writeln('Его квадрат: ', square);
end.

Этот код начинается с инициализации генератора случайных чисел, затем бросает игральный кубик три раза, записывает результаты в `dice1`, `dice2` и `dice3`, и затем составляет целое число `combinedNumber`. Далее, программа находит квадрат этого числа и выводит результаты на экран.

Вы можете скомпилировать и выполнить эту программу на своей системе, чтобы убедиться, что она работает правильно.