Думаю, что такая операция возможна. Например: //PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin //цикл с параметром for var i := 1 to 3 do begin var a := ReadInteger('Введите число а'); println(a); end; // цикл с предусловием var i := 1; while i < 3 do begin var a := ReadInteger('Введите число а'); println(a); i := i + 1; end; // Цикл с потусловием i := 1; repeat var a := ReadInteger('Введите число а'); println(a); i := i + 1; until i > 3; end.
Поскольку математических расчетов не производится, будем работать со строковым (символьным) представлением данных. Это как если бы мы взяли шесть квадратиков бумаги, написали бы на каждом цифру 1, 2, ...6, и составили бы из этих кусочков цепочку 1-2-3-4-5-6 . А потом сделали бы нужные перестановки.
var s:string; begin Write('Введите натуральное шестизначное число: '); Readln(s); Writeln('Перестановка: ',s[3]+s[4]+s[1]+s[2]+s[5]+s[6]) end.
ответ:1. В 1024
2. В 1024
3. В 1024
4. В 1024
Объяснение: