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

Question

Информатика

Рося

9 сентября, 12:46

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

+1

Ответы (1)

Знаете ответ?

Калидка · Answer 1

Интересная задачка, заковыристая ...

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]
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.

Сработает для чисел любой значности.