Дана строка, состоящая из заглавных английских букв и цифр. Вывести первый символ строки.Входные данные:В единственной строке входного потока дана строка символов, длина которой не превышает 255.Выходные данные:В выходной поток вывести единственный символ.Пример входного файла (input.txt):KDSFJHGLKDJGHLSUIRH5HGUHG58H... Пример выходного файла (output.txt):K
Answers & Comments
Const max = 255;
Var t: Text;
i: Integer;
s: String[max];
Begin
Assign(t, 'd:\input.txt');
Reset(t);i := 2;
While Not Eof(t) Do
Begin
If i > max Then
Break;
Read(t, s);
End;
Close(t);
Assign(t, 'd:\output.txt');
Rewrite(t);
Write(t, s[1]);
Close(t);
End.