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

Question

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

Answer 1

45

yulyessa

25 февраля 2023

Интересная задачка, заковыристая… 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]

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: