Вывести первый символ строки - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Вывести первый символ строки»

textual
Листинг программы
Var t: Text;
    s: String;
Begin
  Assign(t, 'd:\input.txt');
  Reset(t);
  Read(t, s);
  Close(t);
  Assign(t, 'd:\output.txt');
  Rewrite(t);
  Write(t, s[1]);
  Close(t)
End.

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы