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

Question

Тит

6 сентября, 23:04

+4

Ответы (1)

Знаешь ответ?

Петраша · Answer 1

Var n, m:integer;

begin

writeln ('Введи число:');

readln (n);

repeat

begin

m:=n mod 10;

n:=n div 10;

writeln (m);

end;

until n=0;

end.