Опубликовано 6 лет назад по предмету Информатика от фывафцафца

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

Ответ

Ответ дан BlackW1nd

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

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.

Сработает для чисел любой значности.
1. Ответ
  
  Ответ дан BlackW1nd
  
  Мы проходимся по нашей строке s, обрабатывая каждый символ в ней. i - это номер символа (к примеру, в строке s='2h74' s[3]='7'). length(s) - это количество символов в строке s. Цикл for берет каждый сивмол, начиная со 2-го номера, и заканчивая последним. Со второго номера мы начинаем потому, что первый мы уже обработали за циклом:
  max:=s[1];
  min:=s[1];
  p:=1; q:=1;
2. Ответ
  
  Ответ дан фывафцафца
  
  спасибо большое ты мне жизнь спас

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.