»
| | | | | |

» , : |
    
    
         ...
  [ ]
» " " «


<< >>

: paradise, KMA
  

Kum



, ...  
{ =1234 b=4321}
Program GG;

Var i:byte;a,b:integer;S1,S:string;
code:integer;
Begin

a:=1234;
Str(a,S);
writeln('S=',S);
for i:=1 to length(S) do
S1:=S[length(S)+1-i];
for i:=1 to length(S1) do { S1. S, }
write(S1);
writeln;
writeln('L(S1)=',length(S1));
Val(S1,b,code);
writeln('code=',code) ;
writeln('b=',b) ;
readln;
end.

: N/A | : N/A | : 12 2005 13:00 | IP
dm



?

: N/A | : N/A | : 12 2005 14:10 | IP
VF



Administrator

. , . .

, .

write(a);
writeln;



writeln(a);

.

: 3109 | : 2002 | : 12 2005 14:18 | IP
Kum



S1 length(S1)?
------------------------------
for i:=1 to length(S) do
S1:=S[length(S)+1-i];
for i:=1 to length(S1) do { S1. S, }
write(S1);

: N/A | : N/A | : 12 2005 14:49 | IP
VF



Administrator

Pascal . .

: 3109 | : 2002 | : 14 2005 12:57 | IP
Unnamed



- ? - div mod:

uses crt;
var
   a,b,i: Integer;
begin
   clrscr;
   a := 1234; { ReadLn(a);}
   b := 0;
   repeat
       b := b*10 + a mod 10;
       a := a div 10;
   until a=0;
   WriteLn(b);
   ReadLn;
end.
:-)

: 44 | : 2005 | : 23 2005 17:42 | IP
Kum



C Unnamed, , , ? ...

: N/A | : N/A | : 23 2005 20:25 | IP

:
  ?
  ?

HTML

IkonCode

?
e-mail?
?
?  
 


<< >>

© Ikonboard.com