Question

Помогите пожалуйста справиться с заданием ​

Answer 1

Ответ:

program Number3;

var

 a, i: Integer;

begin

 Randomize;

 a := Random (900) + 100;

 WriteLn ('Получено число ', a);

 WriteLn ('сотни   ', a div 100);

 WriteLn ('десятки ', (a div 10) mod 10);

 WriteLn ('единицы ', a mod 10);

 ReadLn;

end.