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

Gazizianov2018 Gazizianov2018    3   13.09.2019 10:10    1

Ответы
MonteCarlo MonteCarlo  04.08.2020 07:14
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика