Instal Steam
login
|
bahasa
简体中文 (Tionghoa Sederhana)
繁體中文 (Tionghoa Tradisional)
日本語 (Bahasa Jepang)
한국어 (Bahasa Korea)
ไทย (Bahasa Thai)
Български (Bahasa Bulgaria)
Čeština (Bahasa Ceko)
Dansk (Bahasa Denmark)
Deutsch (Bahasa Jerman)
English (Bahasa Inggris)
Español - España (Bahasa Spanyol - Spanyol)
Español - Latinoamérica (Bahasa Spanyol - Amerika Latin)
Ελληνικά (Bahasa Yunani)
Français (Bahasa Prancis)
Italiano (Bahasa Italia)
Magyar (Bahasa Hungaria)
Nederlands (Bahasa Belanda)
Norsk (Bahasa Norwegia)
Polski (Bahasa Polandia)
Português (Portugis - Portugal)
Português-Brasil (Bahasa Portugis-Brasil)
Română (Bahasa Rumania)
Русский (Bahasa Rusia)
Suomi (Bahasa Finlandia)
Svenska (Bahasa Swedia)
Türkçe (Bahasa Turki)
Tiếng Việt (Bahasa Vietnam)
Українська (Bahasa Ukraina)
Laporkan kesalahan penerjemahan
⣿⣿⣿⣿⣿⣿⣿⣿⢋⣼⣿⣿⣿⣿⣿⣦⡙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⠏⣾⣿⣿⣿⣿⣿⣿⣿⣷⣌⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⢏⣼⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣆⠻⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⠟⣡⣾⣿⣿⣿⣿⣿⣿⣿⣽⣿⣛⣛⢿⣷⣌⠻⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⠟⣡⣾⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣷⣮⡻⣿⣿⣿⣿⣿⣿
⡟⣡⣾⣿⠿⠟⠛⣛⣛⣛⣛⡛⠛⣛⣛⣛⣛⠛⠿⠿⢿⣿⣿⣿⣮⡛⣿⣿⣿⣿
⠜⣫⣥⣄⠻⠞⠡⠻⠟⠹⣿⡃⠃⠻⠿⠿⠟⠹⣣⢧⢄⣠⣦⠍⣙⠷⡌⢿⣿⣿
⢸⣭⡍⢛⢣⣶⣾⣿⣿⣿⣿⣿⣿⣿⣿⣿⣶⣶⣦⣤⣛⠩⣓⣬⣽⣶⠀⣸⣿⣿
⣦⣍⣙⣓⠘⢿⣿⣿⣿⣿⣿⠟⠀⠀⠈⢻⣿⣿⣿⣿⣿⠡⣿⡿⠍⣩⣴⣿⣿⣿
⣿⣿⣿⣿⣿⢸⣈⣹⣉⣩⣿⣿⣿⣿⣿⣿⣿⣿⠟⣑⣛⣠⣶⣿⡏⣎⢁⠘⣿⣿
⣿⣿⣿⣿⣿⣆⡻⠿⠿⣿⣿⣿⣿⣿⣿⠿⢛⣥⣾⣿⡟⠛⢿⠃⡁⣿⣿⢠⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⣦⣤⣤⣭⢰⣿⢞⣜⡩⠐⣉⡻⠿⠀⢁⣴⡇⡿⢉⣀⣍⢿
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⢏⠆⣼⠿⠛⣡⣴⣿⣶⣝⠀⠀⢻⣿⠀⣰⣿⣿⣯⡜
⣿⣿⣿⣿⣿⣿⣿⣿⠟⣡⡎⡞⢁⣴⣿⣿⡿⢯⠙⠿⣷⣄⠸⡇⡾⠛⢦⢹⣷⢰
⣿⣿⣿⣿⣿⣿⠟⣱⡾⣫⢌⢠⣿⣯⣭⣭⣴⣿⣟⢐⣦⡘⢷⣄⠑⣐⠚⣘⣡⣾
⣿⣿⣿⠿⣋⣴⣿⡉⣴⡇⢢⣿⣿⣿⣿⣿⣿⣿⣿⠇⡙⣿⣦⢹⣧⣙⡻⢿⣿⣿
⣿⣿⠇⣺⡿⢛⡅⡇⣿⡇⢼⣛⣿⣿⣿⣿⠿⢛⡥⠴⠀⡻⢿⡸⢿⣿⣿⠢⢉⣿
⣿⣿⣇⣛⣼⣿⣿⣿⣿⣿⣶⡌⣽⣷⢂⣾⣿⣿⣿⡿⢃⣭⣬⡛⣿⣿⣿⣦⣥⣤
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣬⢱⣿⣿⣿⣿⡟⣱⠟⣿⣿⣷⡌⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⢸⣿⣿⡇⢉⣨⣴⠎⣻⣿⣿⣿⠘⣿⣿⣿⡿
⣿⣿⣿⣿⣿⣿⣿⠿⣋⣭⣭⣙⠛⠈⣽⡿⢇⣾⣿⢃⣾⣿⣿⣿⣷⡅⣿⣿⣿⣿
⣿⣿⣿⣿⣿⡟⣴⡿⠿⢿⣿⣿⣿⣿⣿⣷⢸⣿⣿⣦⣝⣛⣛⠻⢛⣃⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣮⡙⠻⠶⠮⣝⣻⣿⣿⣿⢸⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣷⣶⣦⣬⣭⣭⣼⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
VAR
Result: CHAR;
Ch, Ch1, Ch2: CHAR;
F1, F2: TEXT;
PROCEDURE Lexico(VAR F1, F2: TEXT; VAR Result: CHAR);
VAR
Ch1, Ch2: CHAR;
BEGIN {Lexico}
RESET(F1);
RESET(F2);
Result := '0';
WHILE (NOT EOLN(F1) AND NOT EOLN(F2)) AND (Result = '0')
DO
BEGIN
READ(F1, Ch1);
READ(F2, Ch2);
IF (Ch1 < Ch2) OR (EOLN(F1))
THEN
Result := '1'
ELSE
IF (Ch1 > Ch2) OR (EOLN(F1))
THEN
Result := '2'
END {WHILE}
END; {Lexico}
PROCEDURE CopyFile(VAR F1, F2: TEXT);
BEGIN
REWRITE(F2);
RESET(F1);
WHILE NOT EOLN(F1)
DO
BEGIN
READ(F1, Ch);
WRITE(F2, Ch)
END
END;
BEGIN
CopyFile(INPUT, F1);
Lexico
END.
⠸⡇⠀⠿⡀⠀⠀⠀⣀⡴⢿⣿⣿⣿⣿⣿⣿⣿⣷⣦⡀
⠀⠀⠀⠀⠑⢄⣠⠾⠁⣀⣄⡈⠙⣿⣿⣿⣿⣿⣿⣿⣿⣆
⠀⠀⠀⠀⢀⡀⠁⠀⠀⠈⠙⠛⠂⠈⣿⣿⣿⣿⣿⠿⡿⢿⣆
⠀⠀⠀⢀⡾⣁⣀⠀⠴⠂⠙⣗⡀⠀⢻⣿⣿⠭⢤⣴⣦⣤⣹⠀⠀⠀⢀⢴⣶⣆
⠀⠀⢀⣾⣿⣿⣿⣷⣮⣽⣾⣿⣥⣴⣿⣿⡿⢂⠔⢚⡿⢿⣿⣦⣴⣾⠸⣼⡿
⠀⢀⡞⠁⠙⠻⠿⠟⠉⠀⠛⢹⣿⣿⣿⣿⣿⣌⢤⣼⣿⣾⣿⡟⠉
⠀⣾⣷⣶⠇⠀⠀⣤⣄⣀⡀⠈⠻⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡇
⠀⠉⠈⠉⠀⠀⢦⡈⢻⣿⣿⣿⣶⣶⣶⣶⣤⣽⡹⣿⣿⣿⣿⡇
⠀⠀⠀⠀⠀⠀⠀⠉⠲⣽⡻⢿⣿⣿⣿⣿⣿⣿⣷⣜⣿⣿⣿⡇
⠀⠀ ⠀⠀⠀⠀⠀⢸⣿⣿⣷⣶⣮⣭⣽⣿⣿⣿⣿⣿⣿⣿⠇
⠀⠀⠀⠀⠀⠀⣀⣀⣈⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠇
⠀⠀⠀⠀⠀⠀⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠃