Question

Дано натуральное число n.Получить новое число, поставив ноль перед каждой цифрой , кроме первой (например, дано число 567, результат - 50607) на паскале решить

Answer 1

uses crt;
var a,h:longint;
b:integer;
begin
clrscr;
writeln ('Введи число');
readln (a);
h:=1;
while a>0 do
  begin
  b:=a mod 10;
  h:=h*100+b;
  a:=a div 10;
end;
a:=0;
while h>10 do
      begin
      b:=h mod 10;
      a:=a*10+b;
      h:=h div 10;
      end;
writeln (a);
readln;
end.