Question

Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем его среднюю цифру (десятки). написать нужно на паскале пожалуйста, хелпаните)

Answer 1

Var
x: integer;
begin
readln(x);
writeln('Разряд единиц: ', x mod 10);
writeln('Разряд десятков: ', x mod 100 div 10);
end.

Answer 2

Для решения данной задачи на языке Pascal можно использовать арифметические операции и операции деления и остатка от деления.

Вот пример кода, который решает данную задачу:

program ExtractDigits;
var
  number, units, tens: integer;
begin
  writeln('Введите трехзначное число:');
  readln(number);
  
  // Извлекаем последнюю цифру (единицы)
  units := number mod 10;
  
  // Извлекаем среднюю цифру (десятки)
  tens := (number div 10) mod 10;
  
  // Выводим результаты
  writeln('Последняя цифра (единицы): ', units);
  writeln('Средняя цифра (десятки): ', tens);
end.

В этом коде мы сначала запрашиваем трехзначное число у пользователя. Затем мы используем операцию остатка от деления (`mod`) для извлечения последней цифры (единицы) и операцию деления нацело (`div`) для извлечения средней цифры (десятки). Наконец, мы выводим результаты на экран.

Пример работы программы: ``` Введите трехзначное число: 456 Последняя цифра (единицы): 6 Средняя цифра (десятки): 5 ```

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.