Question

Создайте программу в Паскале. Программа должна делать:
1 . Генерирует случайное число от 100 до 999;
2. Находит и выводит в сообщении отдельные цифры этого числа.

Answer 1

===== PascalABC.NET =====

begin

 var n :=Random(100, 999);

 n.Println;

 Print('Цифры числа:');

 while n > 0 do

 begin  

   Print(n mod 10);

   n := n div 10;

 end;

end.