Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль!
n:=random(1000) + 100; // получаем случайное трехзначное число
s:=100; // задаем начальное значение для параметра деления
while n > 0 do // организуем цикл, пока в трехзначном числе есть цифры
begin
k:=n div s; // получаем первую цифру трехзначного числа
write(k, ‘, ‘); // выводим ее на экран через запятую
n:=n mod s; // отбрасываем первую цифру трехзначного числа
s:= s div 10; // изменяем параметр деления
end;