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.
Нда. Я у мамы программист. С блок-схемой ничем не могу прости. По моему алгоритму ты просто записываешь данное число в строку и пишешь эту строку на экран в обратном порядке. Работает с числами любой размерности, не превышающей ограничения.
s:string;
tmp:char;
begin
read(x);
s:=IntToStr(x);
for i:=1 to 5 do
write(length(s)-i+1);
end.
Нда. Я у мамы программист. С блок-схемой ничем не могу прости. По моему алгоритму ты просто записываешь данное число в строку и пишешь эту строку на экран в обратном порядке. Работает с числами любой размерности, не превышающей ограничения.