Думаю, что такая операция возможна. Например: //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.
//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.