Регистрация
ask52
29.06.2023 15:50
Информатика
Есть ответ 👍

While17. дано целое число n (> 0). используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой(разряда единиц). (pascal abc)

154
301
Посмотреть ответы 2

Ответы на вопрос:

GorunovaSasha
GorunovaSasha
4,6(54 оценок)
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.
оркп
оркп
4,4(13 оценок)

2097152 Килобайт

ответ дан

Популярно: Информатика