Цифры двузначного числа

На этой странице решаем задачи Integer6 - Integer8 из задачника Абрамяна, в которых рассматриваем работу с цифрами двузначного числа.

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

Здесь нет проверки на то, чтобы вводимое число было двузначным, поэтому нужно вводить именно двузначное, иначе выдаст неверный результат. Также в задании достаточно использовать целочисленный тип byte (0..255).

var
  N: byte; { Двузначное число }

begin
  write('N = ');
  readln(N); { <-- вводим число }
  writeln;
  { Находим и выводим левую цифру: }
  writeln(' Левая цифра: ', N div 10);
  { Находим и выводим правую цифру: }
  writeln(' Правая цифра: ', N mod 10);
  readln
end.

**type** byte;: Представляет 8-битовое целое число без знака.Диапазон значений: 0..255 A **div** B - целочисленное деление А на В A **mod** B - остаток при целочисленном делении А на В Integer7. Дано двузначное число. Найти сумму и произведение его цифр.

var
  N, left, right: byte;

begin
  write('N = ');
  readln(N); { <-- вводим число }
  writeln;
  { Находим цифры числа: }  
  left := N div 10;  { <== левая цифра }
  right := N mod 10; { <== правая цифра }
  { Выводим результат: }
  writeln('Сумма цифр: ', left + right);
  writeln('Произведение цифр: ', left * right);
  readln
end.

**type** byte;: Представляет 8-битовое целое число без знака.Диапазон значений: 0..255 A **div** B - целочисленное деление А на В A **mod** B - остаток при целочисленном делении А на В Integer8. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

Для примера возмем число 28, где 2 - количество десятков, 8 - количество единиц. Тогда само число 28 можна переписать как выражение 2·10+8, а число с переставленными местами цифрами будет 8·10+2. Этот способ используется в программе.

var
  N, left, right: byte;

begin
  write(' N = ');
  readln(N); { <-- вводим двузначное число }
  writeln;
  left := N div 10;  { <== левая цифра(десятки) }
  right := N mod 10; { <== правая цифра(единицы) }
  { Создаем новое число(right - десятки, left - единицы): }
  N := 10 * right + left;
  writeln('Число с переставленными цифрами: ', N);
  readln
end.

**type** byte;: Представляет 8-битовое целое число без знака.Диапазон значений: 0..255 A **div** B - целочисленное деление А на В A **mod** B - остаток при целочисленном делении А на В На следующей странице рассмотрим работу с цифрами трехзначного числа.