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

Question

Тамарка

12 января, 15:55

+2

Ответы (1)

Знаете ответ на вопрос?

Ерофей · Answer 1

Var x:integer;

begin

randomize;

x:=random (1000) ;

writeln (x) ;

writeln (x div 100,',', x div 10 mod 10,',', x mod 10) ;

end.