Program test;
var i,n,k,s1,es,al:integer;
s:string;
begin
write('Введите кол-во повторений:');
readln(n);
write('Введите строку:');
readln(s);
repeat
inc(k);
for i:=length(s) downto 1 do s:=s+s[i];
for i:=1 to length(s) do
if i mod 2 = 0 then
begin
es:=strtoInt(s[i])+1;
delete(s,i,1);
insert(InttoStr(es),s,i);
end;
writeln(k,') ',s);
until k=n;
for i:=1 to length(s) do
if StrtoInt(s[i]) mod 2 = 1 then inc(al);
writeln('Кол-во нечетных чисел: ',al);
<span>end.</span>
Программа:
a = int(input("Введите 3-значное число:\n"))
a1 = a // 100
a2 = a // 10 % 10
a3 = a % 10
if a1>a2: a1,a2=a2,a1
if a2>a3: a2,a3=a3,a2
if a1>a2: a1,a2=a2,a1
b = a1*100+a2*10+a3
print (b)
Пример:
Введите 3-значное число:
951
159