Program task1;
var a :integer;
begin
randomize; a:= 0; while (a <> 5) and (a <> 6) do a:= random(7); writeln(a);
<span>end.
program task2;
var Digit, i :integer; DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); for i:= length(DigitStr) downto 1 do write(DigitStr[i]);
<span>end.
program task3;
var Digit :integer; NewDigit, DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); NewDigit:= DigitStr[3] + DigitStr[4] + DigitStr[1] + DigitStr[2]; writeln(NewDigit);
<span>end.</span></span></span>
11₄ = 4×1+1 = 5₁₀. А дальше прибавляем по четверичной единичке в третьем разряде числа, т.е. по 100₄, чтобы не затронуть два младших разряда. где 11. Числу 100₄ соотвествует 4²=16₁₀, поэтому получем ряд чисел 5, 5+16=21, 21+16=37. Все... следующее число уже превысит 40.
Ответ: 5, 21, 37.
<span>AB=10*161+11*160=160+11=171</span>