Программа на Pascal ABC. Сгенерировать случайным образом трехзначное число. Напечатать его. Вывести все цифры, составляющие это число, в порядке не убывания.

Question

Информатика

Андрюша

19 июля, 07:38

Программа на Pascal ABC. Сгенерировать случайным образом трехзначное число. Напечатать его. Вывести все цифры, составляющие это число, в порядке не убывания.

+5

Ответы (1)

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

Флорентина · Answer 1

Var

n, i, j, k:integer;

a:array[1 ... 3] of integer;

begin

Randomize;

n:=Random (900) + 100;

Writeln (n) ;

a[1]:=n div 100;

a[2]: = (n div 10) mod 10;

a[3]:=n mod 10;

for i:=1 to 2 do

for j:=i+1 to 3 do

if a[i]
Writeln (a[1],' ', a[2],' ', a[3]) ;

end.

Пример работы

658

8 6 5