Kaip sukeisti skaitmenis vietomis?

program Bevarde14;
   var n, pirm, pask: longint;
begin
 WriteLn('Iveskite skaiciu');
 ReadLn(n);
 pask := n mod 10;
 pirm := n;
 while pirm > 10 do
 pirm := pirm div 10;
 WriteLn('Pirmas skaicius = ', pirm,', o paskutinis skaicius = ', pask);
end.

Susiradau pirma ir paskutinius skaitmenis, taciau nesugalvoju kaip juos reikia sukeisti vietomis?

Sukeisti vietomis tai kaip?

pask := pirm;

pirm := pask;

?

Isspausdina tik pask skaiciu, ta prasme abu pirmas ir paskutinis buna paskutinio skaiciaus reiksme

Ta prasme as noriu pvz ivedu skaiciu 2783, tai kad man padarytu 3782

temp:=pask;

pask:=pirm;

pirm:=temp;

temp:=pask;

pask:=pirm;

pirm:=temp;

Man tik paskutini skaiciu isspausdina, o kaip padaryti, kad ta n(pradini skaiciu) pvz. 2783 pakeistu i 3782?

Skaitai i masyva ,isvesdamas imi masyva nuo paskutines reiksmes iki pirmos(kiekis=kiekis-1)

Skaitai i masyva ,isvesdamas imi masyva nuo paskutines reiksmes iki pirmos(kiekis=kiekis-1)

Turi buti kazkoks budas ir be masyvu, nes prie masyvu as dar nepriejes..

program programa;

var n, pirm, pask:longint;
Begin
readln(n);
pirm := n div 10**trunc(ln(n)/ln(10));
pask := n mod 10;
n := n + (pirm - pask) + (pask*10**trunc(ln(n)/ln(10)) - pirm*10**trunc(ln(n)/ln(10)));
writeln(n);
readln;
End.

Su mąsyvu daug daug daug lengviau būtu, nes iš aritmetinės pusės tai taip sprendimas atrodo

Diskretus variantas to, kurį pateikė audrius^ (remember kids: jei galima išvengti realiųjų skaičių, tai privaloma išvengti realiųjų skaičių!).

int n = {kažkoks skaičius};
int pask = n % 10;
n /= 10;
int vid = 0; //skaitmenys, esantys tarp pirmo ir paskutinio skaitmens
int pasl = 10; //paslenkamas skaičius per dešimties eiles, „prirašomi nuliai iš dešinės“
while (n > 9) {
  vid += pasl * (n % 10);
  pasl *= 10;
  n /= 10;
} 
//šitoje programos vietoje turime n = {pirmas pradinio n skaitmuo}, vid = {viduriniai pradinio n skaitmenys su nuliu gale}, pask = {paskutnis pradinio n skaitmuo}
// jei pradinis n = 45127, tai dabar n = 4, vid = 5120, pask = 7, pasl = 10000

int ats = n + vid + pask * pasl;
// jei pradinis n = 45127, tai ats = 4 + 5120 + 7 * 10000 = 75124

program Bevarde16;
var n, pask, pirm : longint;
begin
 Read(n);
 pask := n mod 10;
 n := n - pask;
 pirm := n;
 while pirm > 10 do
 pirm := pirm div 10;
 n := n + pirm;
 WriteLn(n);
end.

Bandziau pats kazka, bet sita programa vietoj paskutinio skaitmens iraso pirma, bet pirmas vistiek lieka toks pats, gal galit paredaguoti sita programa, kad paskutinis skaitmuo atsidurtu pirmo skaitmens vietoje?

program Bevarde16;
var n, pask, pirm, d : longint;
begin
 Read(n);
 pask := n mod 10;
 n := n - pask;
 pirm := n;
 d := 0;
 while pirm > 10 do
   begin
   pirm := pirm div 10;
   d += 1;
   end;
 n := n + pirm;
 n += pask*10**d - pirm*10**d;
 WriteLn(n);
end.

O gal galit paaiskinti ka reiskia ta daugyba "**"?

O gal galit paaiskinti ka reiskia ta daugyba "**"?

Kėlimas laipsniu.

Aciu jums visiems uz pagalba!