Question

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

Answer 1

var a,b,c,x:integer;
begin 
    x:=random (899) +100; 
    writeln('x= ', x); 
    a:= x div 100;  {первая цифра}
    b:=(x mod 100) div 10;  {вторая цифра}
    c:= x mod 10;  {третья цифра}
    writeln(a,',',b,',',c); 
end.