Написати програму, що утворю з цифр тризначного числа найбльше тризначне число/Написать

Написати програму, що утворю з цифр тризначного числа найбльше тризначне число/Написать программку, образует с цифр трехзначного числа больше трехзначное число

Задать свой вопрос
1 ответ
Var x,n,a,b,c,y:integer;
begin
readln(x);
a:=0;
b:=0;
c:=0:
while xgt;0 do
begin
n:=x mod 10;
if ngt;a then
begin
c:=b;
b:=a;
a:=n
end
else
if ngt;b then
begin
c:=b;
b:=n
end
else c:=n;
x:=x div 10
end;
y:=a*100+b*10+c;
writeln(y)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт