Поменять местами максимальное и минимальное 3 хзначное число х

Question

Поменять местами максимальное и минимальное 3 хзначное число х (Pascal) Типо 157=751

Yulyessa · Accepted Answer

Интересная задачка, заковыристая… Var x,i,c,q,p: integer; s: string; max,min,k: char; Begin readln (x); str (x,s); max: =s[1]; min: =s[1]; p: =1; q: =1; for i: =2 to length (s) do begin if s[i]>max then begin max: =s[i]; q: =i; end; if s[i]<min then begin min: =s[i]; p: =i; end; end; k: =s[p]; s[p]: =s[q]; s[q]: =k; val (s,x,c); writeln (x); End. Сработает для чисел любой значности.

Поменять местами максимальное и минимальное 3 хзначное число х

Задание:

Решение: