Паскаль

[dimasik7414]

Народ, помогите пожалуйста. Надо написать прогрмму, тип компьютер просит ввести 3 значное число например 749, а в ответ получает максимальное число полученное из цифр числа 749, то есть 749-974 (на паскале) Спасибо) :D

 

[dimasik7414]

Что, всем лень под вечер? ЖВ

 

[GreekArchitect]

могу на питоне сделать, а зачем паскаль?

 

[dimasik7414]

могу на питоне сделать, а зачем паскаль?

потому что в школе паскаль)

 

[resq$$]

/del сообщение

 

[FluGeRRR]

Нужно ещё?

 

[dimasik7414]

Нужно ещё?

Да, буду очень признателен.

 

[dimasik7414]

Нужно ещё?

program dz4;
var a,b,c,x:integer;
begin
writeln('Введите 3-ое число');
readln(a);
b:=a div 100;
c:=a div 10 mod 10;
x:=a mod 10;
вот я поделил трехзначное число на сотни, десятки и единицы, чтобы тип в будущем поставить эти числа в порядке возрастания, но чет я сделал 8 различных вариантов, а он мне не правильно выдает( использовал if else...)

 

[Vine]

Паскаль я не знаю, с синтаксисом могут быть проблемы, в блокноте писал.

// a, b, c - сотки, десятки и единицы соответственно
var a, b, c: interger;
var result, temp: interger;

temp := a;
if b > temp
then
    temp := b;
end

if c > temp
then
    temp := c;
end

// мы получили наибольшее из этих чисел
result := temp * 100;


temp := a;
if temp > b
then
    if temp > c
    then
        if b > c
        then
            temp := b;
        else if b < c
            temp := c;
        end
    end
else
    if temp < b
    then
        if temp < c
        then
            if b < c
            then
                temp := b;
            else if b > c
                temp := c;
        end
    end
end
// мы получили среднее число

result := result + temp * 10;

temp := a;
if b < temp
then
    temp := b;
end

if c < temp
then
    temp := c;
end
// мы получили наименьшее число

result := result + temp;

print(result);

 

[dimasik7414]

Паскаль я не знаю, с синтаксисом могут быть проблемы, в блокноте писал.

// a, b, c - сотки, десятки и единицы соответственно
var a, b, c: interger;
var result, temp: interger;

temp := a;
if b > temp
then
    temp := b;
end

if c > temp
then
    temp := c;
end

// мы получили наибольшее из этих чисел
result := temp * 100;


temp := a;
if temp > b
then
    if temp > c
    then
        if b > c
        then
            temp := b;
        else if b < c
            temp := c;
        end
    end
else
    if temp < b
    then
        if temp < c
        then
            if b < c
            then
                temp := b;
            else if b > c
                temp := c;
        end
    end
end
// мы получили среднее число

result := result + temp * 10;

temp := a;
if b < temp
then
    temp := b;
end

if c < temp
then
    temp := c;
end
// мы получили наименьшее число

result := result + temp;

print(result);

Спсибо, но я уже сделал по-проще
program dz4;
var a,b,c,x,n:integer;
begin
writeln('Введите 3-ое число');
readln(a);
b:=a div 100;
c:=a div 10 mod 10;
x:=a mod 10;
if (b < c) then swap(b, c);
if (c < x) then swap(c, x);
if (b < c) then swap(b, c);
n := b * 100 + c * 10 + x;
writeln(n);
end.