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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
