Регистрация
Простокнигоманка
27.04.2021 13:09
Информатика
Есть ответ 👍

Решить в delhi. дано трехзначное число, в котором все цифры различны. получить шесть чисел, образованных при перестановке цифр заданного числа.

115
131
Посмотреть ответы 2

Ответы на вопрос:

lerabregneva
lerabregneva
4,8(3 оценок)
Var a,a1,a2,a3: integer; begin write('a = '); readln(a); a1: =a div 100; a2: =a div 10 mod 10; a3: =a mod 10; writeln(a,' ',a1*100+a3*10+a2); writeln(a2*100+a1*10+a3,' ',a2*100+a3*10+a1); writeln(a3*100+a1*10+a2,' ',a3*100+a2*10+a1); end. пример: a = 251251 215521 512125 152
Dan2707
Dan2707
4,7(56 оценок)

===== PascalABC.NET =====

begin

 var a := MatrRandom(5, 5, -99, 99);

 a.Println;

 Writeln;

 var tMin := a.ElementsWithIndices.MinBy(p -> p[0]);

 var tMax := a.ElementsWithIndices.MaxBy(p -> p[0]);

 Swap(a[tMin[1], tMin[2]], a[tMax[1], tMax[2]]);

 a.Println

end.

Популярно: Информатика