Решать на PascalABC Имеется текстовый файл. Напечатать первые 10 символов файла.

Решать на PascalABC Имеется текстовый файл. Напечатать первые 10 символов файла.
Гость
Ответ(ы) на вопрос:
Гость
var f: text; s: string; begin assign(f,'input.txt'); reset(f); readln(f,s); s:=copy(s,1,10); writeln(s); close(f); end.
Гость
var   s:string[10];   f:Text; begin   Assign(f,'a.txt'); Reset(f);   Readln(f,s); Close(f);   Writeln(s) end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы