Răspuns :
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!
Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.