Question

While17. Дано целое число N (> 0). Используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой(разряда единиц). (Pascal ABC)

Answer 1

Var
  n, x, a: integer;
begin
write('Введите число: ' );
readln(n);  
while (n > 0 ) do
   begin
   a := n mod 10;
   x := x * 10 + a;
   n := n div 10;
   end; 
writeln('Ответ: ', x);  
end.

Answer 2

Вот решение данной задачи на языке Pascal ABC:

pascalCopy code
program PrintDigits;
var
  N, digit: integer;
begin
  write('Введите целое число N: ');
  readln(N);

  writeln('Цифры числа N, начиная справа:');
  repeat
    digit := N mod 10;  // Получаем последнюю цифру числа
    writeln(digit);     // Выводим цифру на экран
    N := N div 10;      // Удаляем последнюю цифру из числа
  until N = 0;

  readln;
end.

Программа принимает целое число N от пользователя и затем выводит все его цифры, начиная с самой правой (разряда единиц). Она использует операции деления нацело (//) и взятия остатка от деления (mod) для получения и удаления цифр числа N по одной за раз. Каждая цифра выводится на экран отдельной строкой.