Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! Без mod и div
Var x:integer;
begin
randomize;
x:=random(1000);
writeln(x);
writeln(x div 100,,, x div 10 mod 10,,, x mod 10);
end.
Оцени ответ
