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

Question

Информатика

Неонила

25 января, 13:51

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

+3

Ответы (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.