Question

1)Определить, является ли заданное целое число а двузначным числом. 2)Найти значение выражения a3+b3\bc. 3)Определить есть ли среди цифр.задано трёхзначное число с одинаковыми числамна Паскале

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

1)
begin
  var a:=ReadInteger('Введите число->');
  Println('Число',a, (a div 10>0) and (a div 10<10)?'двухзначное.':'не двухзначное.');
end.

Пример:
Введите число-> 42
Число 42 двухзначное. 

2)
begin
  var (a,b,c):=ReadInteger3('Введите a, b, c -> ');
  Println('a*3+b*3/bc=', (a*3+b*3)/(b*c));
end.

Пример:
Введите a, b, c ->  1 2 3
a*3+b*3/bc= 1.5 

Answer 2

//Листинг программы и скриншот ее работы в приложениях

Answer 3

1. Чтобы определить, является ли заданное целое число а двузначным числом, нужно проверить, находится ли оно в диапазоне от 10 до 99 (включительно). Это можно сделать с помощью следующего кода на Python:

pythonCopy code
number = 42  # Заданное целое число

if 10 <= number <= 99:
    print("Число является двузначным.")
else:
    print("Число не является двузначным.")

В данном примере число 42 является двузначным, поэтому вывод будет "Число является двузначным."

2. Чтобы найти значение выражения a^3 + b^3 / c, необходимо знать значения переменных a, b и c. Пожалуйста, предоставьте эти значения, чтобы я мог выполнить расчеты и дать вам ответ.

3. Чтобы определить, содержит ли трехзначное число одинаковые цифры, можно разложить число на отдельные цифры и проверить их равенство. Если хотя бы две цифры будут одинаковыми, то число содержит одинаковые цифры. Вот пример кода на Python, который может выполнить эту проверку:

pythonCopy code
number = 123  # Трехзначное число

digit1 = number // 100  # Первая цифра
digit2 = (number // 10) % 10  # Вторая цифра
digit3 = number % 10  # Третья цифра

if digit1 == digit2 or digit1 == digit3 or digit2 == digit3:
    print("В числе есть одинаковые цифры.")
else:
    print("В числе нет одинаковых цифр.")

В данном примере число 123 не содержит одинаковых цифр, поэтому вывод будет "В числе нет одинаковых цифр."