profile
Опубликовано 4 года назад по предмету Информатика от linkatzapko

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

  1. Ответ
    Ответ дан preceptor
    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.
    1. Ответ
      Ответ дан preceptor
      Где 'd:input.txt' и 'd:output.txt', можете заменить на другой путь, который вам удобен только очень важно (!) чтобы не было проблем с правами на чтение/запись.