Широкий круг вопросов

Ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д. в программе Ку

Автор Hyper best, Апр. 27, 2024, 21:11

« назад - далее »

Hyper best

Хотелось бы получить информацию о. Ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д. в программе КуМиР


SkOrPiOnUs

Переворот числа таким образом, чтобы первая цифра стала последней


Алг перевертыш:


нач


цел а, а1, 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


кон