Var i,x:integer; s:string; tmp:char; begin read(x); s:=IntToStr(x); for i:=1 to 5 do write(length(s)-i+1); end.
Нда. Я у мамы программист. С блок-схемой ничем не могу прости. По моему алгоритму ты просто записываешь данное число в строку и пишешь эту строку на экран в обратном порядке. Работает с числами любой размерности, не превышающей ограничения.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
