дано трёхзначное число, отсортировать разряды в порядке возрастания. пример: 936 369 программа в паскале 7 класс
Answers & Comments
allangarsk
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.
Answers & Comments