, , INPUT. OUTPUT. . , :
Name1:= Name2
Name1:= x
Name1 Name2 CHAR, , x . := .
(Name2) (Name1). Name2.
Name1 x.
,
OUTPUT:= INPUT
.
CopyReversed
PROGRAM CopyReversedTwo (INPUT, OUTPUT);
{ INPUT OUTPUT }
VAR
In1, In2, Out1, Out2: CHAR;
BEGIN
READ(In1, In2);
Out1:= In2;
Out2:= In1;
WRITELN(Out1, Out2)
END.
INPUT:AZURE
OUTPUT:ZA
CopyReversedTwo
INPUT | OUTPUT | In1 | In2 | Out1 | Out2 | |
PROGRAM CopyReversedTwo (INPUT, OUTPUT) VAR In1, In2, Out1, Out2: CHAR BEGIN READ(In1, In2) Out1:= In2 Out2:= In1 WRITELN(Out1, Out2) END | AZURE A ZURE A ZURE AZ U RE AZ U RE AZ U RE AZ U RE AZURE | _ _ _ _ _ ZA/_ ZA | ? A A A A | ? Z Z Z Z | ? ? Z Z Z | ? ? ? A A |
.
OUTPUT , .
INPUT OUTPUT, .
, .
PROGRAM CopyAndShuffle (INPUT, OUTPUT);
{ U, V, N, X, Y INPUT OUTPUT
U, X, V, Y, M}
VAR
In1, In2, In3, In4, In5: CHAR;
BEGIN
READ(In1, In2, In3, In4, In5);
WRITELN(INPUT DATA);
WRITE( );
WRITELN(In1, In2, In3, In4, In5);
WRITELN(SHUFFLED DATA);
WRITE( );
WRITELN(In1, In4, In2, In5, In3);
END.
INPUT:12345678
OUTPUT:INPUT DATA
SHUFFLED DATA
INPUT:BARE
OUTPUT:INPUT DATA
BARE
SHUFFLED DATA
BEAR