Вопрос, который вызвал трудности

Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! Без mod и div

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var x:integer; 
begin 
randomize; 
x:=random(1000); 
writeln(x); 
writeln(x div 100,',', x div 10 mod 10,',', x mod 10); 
end.