没readkey的情况
type Tstring=record
s:array[0..maxn] of char;
n:longint;
end;
procedure scan(var S:Tstring);
begin
S.n:=0; while not seekeoln do with S do begin
inc(n); read(s[n]);
end; readln;
end;
时间: 2024-10-07 18:12:17
没readkey的情况
type Tstring=record
s:array[0..maxn] of char;
n:longint;
end;
procedure scan(var S:Tstring);
begin
S.n:=0; while not seekeoln do with S do begin
inc(n); read(s[n]);
end; readln;
end;