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

ирмук ирмук    3   21.07.2019 10:10    1

Ответы
Асенька2005 Асенька2005  23.09.2020 08:16
Var
  s:string[10];
  f:Text;
begin
  Assign(f,'a.txt'); Reset(f);
  Readln(f,s); Close(f);
  Writeln(s)
end.
ПОКАЗАТЬ ОТВЕТЫ
olgailinsk olgailinsk  23.09.2020 08:16
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика