Question

Дана строка, состоящая из заглавных английских букв и цифр. Вывести первый символ строки.Входные данные:В единственной строке входного потока дана строка символов, длина которой не превышает 255.Выходные данные:В выходной поток вывести единственный символ.Пример входного файла (input.txt):KDSFJHGLKDJGHLSUIRH5HGUHG58H... Пример выходного файла (output.txt):K

Answer 1

Program Zadacha;
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.

Answer 2

Где 'd:input.txt' и 'd:output.txt', можете заменить на другой путь, который вам удобен только очень важно (!) чтобы не было проблем с правами на чтение/запись.