Zdravim,
jak muzu v Turbo Pascalu spojit 2 cisla? Napr. 5 a 7 = 57. Nesmim pouzit string
Predem vsem dekuji.
Moderátor: Moderátoři Živě.cz
Nargon píše:5*10 + 7 = 57
A kdybys mel 3 cisla treba 2,7,3 a chce 273, tak je to podobny.
2*100 + 7*10 + 3 = 273
function otoceni_cisla(n:word):word;
var r,c,i,s,nc,oc:word;
j:longint;
begin
if(n div 10>0)then begin
r:=n;
c:=0;
repeat
r:=r div 10;
c:=c+1;
until r<1;
i:=1;
j:=10;
while i<c do begin
i:=i+1;
j:=j*10;
end;
oc:=0;
for i:=1 to c do begin
nc:=n mod 10;
n:=n div 10;
j:=j div 10;
s:=nc*j;
oc:=oc+s;
end;
otoceni_cisla:=oc;
end else
otoceni_cisla:=n;
end;
Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků