Question

Написать программу в Pascal для вычисления десятков и единиц в числе. Помогите,пожалуйста

Answer 1

Ответ:

Объяснение:

program razryadi;

var

ch:integer;

begin

   readln(ch);

   Writeln(ch mod 10,' - единиц');

   Writeln((ch mod 100) div 10,' - десятков');

end.

Answer 2

Для вычисления десятков и единиц в числе вам понадобится разделить число на 10 и взять остаток от деления. Вот пример программы на Pascal, которая выполняет это: ```pascal program CalculateDigits; var number, tens, units: integer; begin writeln('Введите число:'); readln(number); tens := number div 10; // вычисляем десятки units := number mod 10; // вычисляем единицы writeln('Десятки:', tens); writeln('Единицы:', units); end. ``` В этой программе сначала пользователю предлагается ввести число. Затем число делится на 10 и записывается в переменную `tens` (десятки), а остаток от деления записывается в переменную `units` (единицы). Затем программа выводит результаты на экран. Пример запуска программы: ``` Введите число: 45 Десятки: 4 Единицы: 5 ``` Таким образом, если ввести число 45, программа выводит, что в нем 4 десятка и 5 единиц.