Решать на 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
