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

Question

Информатика

Артемьюшка

4 ноября, 06:08

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

+4

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