While17. Дано целое число N (amp;gt; 0). Используя операции деления нацело

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

Задать свой вопрос
1 ответ
Var
  n, x, a: integer;
begin
write('Введите число: ' );
readln(n);  
while (n gt; 0 ) do
   begin
   a := n mod 10;
   x := x * 10 + a;
   n := n div 10;
   end; 
writeln('Ответ: ', x); 
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт