Question

1) Напишите программу, которая вводит трехзначное число и разбивает его на цифры. Пример: при вводе числа 123 программа должна вывести "1, 2, 3"
2) Нужно написать такую же программу как и в первом номере,только для случайных чисел( не для трехзначного числа)
Помогите пожалуйста
Заранее огромнейшее спасибо

Answer 1

универсальный вариант. Долго над решением думать не хотелось, так что ответ такой.  Поскольку ограничений на решение не было)

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

var

   n: integer;

   s: string;

begin

   readln(n);  

   s := '';

   while n > 0 do

   begin

       s := (n mod 10).ToString() + '0

       ' + s;

       n := n div 10;

   end;

   

   writeln(s);

end.