Дано двузначное число. Определить, равен ли квадрат этого числа учетверенной сумме кубов его цифр. Например, для числа 48 — положительный, для числа 52 — отрицательный. В Pascal.

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

1. Извлечь цифры двузначного числа. Для этого можно воспользоваться операциями деления и взятия остатка от деления.

2. Найти квадрат числа.

3. Рассчитать сумму кубов цифр числа, умножить её на 4.

4. Сравнить квадрат числа с учетверенной суммой кубов его цифр.

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

pascal
Копировать код
program CheckSquareAndCubes;
var
  num, tens, ones, square, sumCubes: Integer;
begin
  Write('Введите двузначное число: ');
  ReadLn(num);
  
  // Извлечение десятков и единиц
  tens := num div 10;    // десятки
  ones := num mod 10;    // единицы
  
  // Вычисление квадрата числа
  square := num * num;
  
  // Вычисление суммы кубов цифр
  sumCubes := (tens * tens * tens) + (ones * ones * ones);
  
  // Учетверенная сумма кубов
  sumCubes := sumCubes * 4;
  
  // Проверка условия
  if square = sumCubes then
    WriteLn('Положительный')
  else
    WriteLn('Отрицательный');
end.

Пояснение к программе:

1. Мы считываем двузначное число с клавиатуры.

2. Затем извлекаем десятки (используем целочисленное деление на 10) и единицы (используем операцию взятия остатка от деления на 10).

3. Находим квадрат этого числа.

4. Считаем сумму кубов цифр числа и умножаем её на 4.

5. Если квадрат числа равен учетверенной сумме кубов цифр, выводим "Положительный", иначе — "Отрицательный".

Таким образом, программа проверяет, равен ли квадрат числа учетверенной сумме кубов его цифр, и выводит результат.