ВВЕРХ
ВНИЗ

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

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

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

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
var
  N: byte; { Двузначное число }

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

Integer7. Дано двузначное число. Найти сумму и произведение его цифр.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
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.

Integer8. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
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.

На следующей странице рассмотрим работу с цифрами трехзначного числа.




Яндекс.Метрика