Решать на 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.
Не нашли ответ?
Похожие вопросы