Question

Se citeşte un număr natural nenul n, de minim 2 cifre şi maxim 8 cifre, de la
tastatură şi o valoarea naturală din intervalul [0,9], în variabila c. Scrieţi un program
C care construieşte un nou număr prin inserarea cifrei c în mijlocul numărului citit
iniţial.
În pascal va rog

Answer 1

Răspuns:

program InserareCifra;

var n,c,z,m,nc,i:integer;

begin

readln(n);

readln(c);

m:=n;

nc:=1;

while m>9 do

  begin

    inc(nc);

    m:=m div 10;

  end;

z:=1;

for i:=1 to (nc div 2) do

  begin z:=z*10 end;

m:=(n div z)*(z*10) + c*z + (n mod z);

writeln(m);

end.

Explicație: