ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д. в программе КуМиР
Answers & Comments
mnv1962
Алг перевертыш нач цел a,a1,b,i,k ввод a k:=0 b:=a a1:=0 нц пока a>0 i:=mod(a,10) k:=k+1; a:= div(a,10) кц нц пока b>0 a1:=a1+mod(b,10)*10**(k-1); b:=div(b,10); k:=k-1 кц вывод " новое число =", a1 кон
Answers & Comments
нач
цел a,a1,b,i,k
ввод a
k:=0
b:=a
a1:=0
нц пока a>0
i:=mod(a,10)
k:=k+1;
a:= div(a,10)
кц
нц пока b>0
a1:=a1+mod(b,10)*10**(k-1);
b:=div(b,10);
k:=k-1
кц
вывод " новое число =", a1
кон