Дано трёхзначное число, отсортировать разряды в порядке возрастания. пример: 936 369 программа в паскале 7 класс

Question

Информатика

Валеша

3 декабря, 07:20

Дано трёхзначное число, отсортировать разряды в порядке возрастания. пример: 936 369 программа в паскале 7 класс

+5

Ответы (1)

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

Артамоха · Answer 1

Var s, i, j:integer; d:array[0 ... 2] of integer; beginwriteln ('Введите трёхзначное число') ; Readln (s) ; for i:=0 to 2 do begind[i]: = s mod 10; s:=s div 10; writeln (d) ; end; for j:=1 to 2 do for i:=1 to 2-j do if d[i-1] > d[i] then swap (d[i-1], d[i]) ; writeln; writeln (d) ; end.