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 pasca va rog... Urgent

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:

Succese!