CopyChar
. , -. , , , .
.
PROGRAM CopyChar (INPUT, OUTPUT);
{ INPUT OUTPUT}
VAR
Ch: CHAR;
BEGIN
READ(Ch);
WRITELN(Ch)
END.
INPUT: ABC
OUTPUT: A
Ch , . CopyChar READ, INPUT Ch. , READ Ch INPUT.
WRITELN Ch OUTPUT. , WRITELN OUTPUT. WRITELN , , Ch .
CopyChar
| INPUT | OUTPUT | Ch | |
| PROGRAM CopyChar (INPUT, OUTPUT) VAR Ch: CHAR BEGIN READ(Ch) WRITELN(Ch) END. | ABC A BC A BC A B C A B C | _ _ _ A/_ A | ? A A |
, INPUT Ch.
INPUT ABC . , , , ABC, .
Ch , Ch. Ch , , , . , . , Ch '?', / .
READ(Ch); INPUT Ch. Ch INPUT (A) INPUT .
WRITELN Ch (A) OUTPUT . INPUT OUTPUT , Ch .
INPUT OUTPUT. , INPUT , OUTPUT . Ch , .
CopyChar .
|
|
|
INPUT: ABC
OUTPUT: A
INPUT: A
OUTPUT: A
INPUT: XAABB
OUTPUT: X
READ WRITELN
PROGRAM Garbage (INPUT, OUTPUT);
{ - }
VAR
Ch: CHAR;
BEGIN
WRITELN(Ch);
READ(Ch)
END.
INPUT: ABC
OUTPUT:?
INPUT: A
OUTPUT:?
INPUT: XYZ
OUTPUT:?
OUTPUT , OUTPUT , WRITELN Ch . (Garbage).
Garbage
| INPUT | OUTPUT | Ch | |
| PROGRAM Garbage (INPUT, OUTPUT) VAR Ch: CHAR BEGIN WRITELN(Ch) READ(Ch) END. | ABC A BC A BC A BC A B C | _ _ ?/_ ?/_ ? | ? ? A |
Garbage . - , , , , INPUT OUTPUT.
CopyTwice -, INPUT OUTPUT, .
PROGRAM CopyTwice (INPUT, OUTPUT);
{ INPUT OUTPUT}
VAR
Ch: CHAR;
BEGIN
READ(Ch);
READ(Ch);
WRITE(Ch);
WRITELN(Ch)
END.
INPUT: ABC
OUTPUT: BB
INPUT: XXY
OUTPUT: XX
CopyTwice, , INPUT Ch , READ , OUTPUT INPUT.
PROGRAM Copy2 (INPUT, OUTPUT);
{ INPUT OUTPUT}
VAR
Letter: CHAR;
BEGIN
READ(Letter);
WRITE(Letter);
READ(Letter);
WRITELN(Letter)
END.
INPUT: ZZ
OUTPUT:ZZ
INPUT:AZURE
OUTPUT:AZ
INPUT:3.14
OUTPUT:3.
Letter , , .
.
PROGRAM CopyReversed (INPUT, OUTPUT);
{ INPUT OUTPUT }
VAR
Ch1, Ch2: CHAR;
BEGIN
READ(Ch1, Ch2);
WRITELN(Ch2, Ch1)
END.
INPUT:ZA
OUTPUT:AZ
INPUT:AZURE
OUTPUT:ZA
READ WRITE , READ WRITE . WRITE READ .
READ(Ch1, Ch2) READ(Ch1); READ(Ch2)
WRITELN(Ch1, Ch2) WRITE(Ch1); WRITE(Ch2); WRITELN
