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

Question

Информатика

Васюня

18 мая, 23:23

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

+2

Ответы (1)

Знаете ответ?

Евгеня · 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.