
Code: Select all
remove after A.C :D

Moderator: Board moderators
Code: Select all
remove after A.C :D
Code: Select all
scanf("%d",&k);getchar();
Code: Select all
scanf("%d\n",&k);
Thank you very much, I got A.Cyan yan wrote:first, you mustindeedCode: Select all
scanf("%d",&k);getchar();
second, the last character can be space. It's possibleCode: Select all
scanf("%d\n",&k);
Code: Select all
procedure Shift(var s: string; ind: Integer);
var
i: Integer;
begin
for i := ind to length(s) do
s[i] := s[i + 1];
setlength(s, length(s) - 1);
end;
var
i, j, t, tt, n: Integer;
s: string;
begin
Readln(t);
for tt := 1 to t do
begin
Readln(n);
Writeln('Case ', tt, ':');
for i := 1 to n do
begin
Readln(s);
for j := 1 to Length(s) do
While (s[j] = ' ') and (s[j + 1] = ' ') do
Shift(s, j);
Writeln(s);
end;
end;
end.
Code: Select all
procedure Shift(var s: string; ind: Integer);
var
i: Integer;
begin
for i := ind to length(s) do
s[i] := s[i + 1];
setlength(s, length(s) - 1);
end;
var
i, j, t, tt, n: Integer;
s: string;
begin
Readln(t);
for tt := 1 to t do
begin
Readln(n);
Writeln('Case ', tt, ':');
for i := 1 to n do
begin
Readln(s);
for j := 1 to Length(s) do
While (s[j] = ' ') and (s[j + 1] = ' ') do
Shift(s, j);
Writeln(s);
end;
Writeln;
end;
end.
Code: Select all
procedure Shift(var s: string; ind: Integer);
var
i: Integer;
begin
for i := ind to length(s) do
s[i] := s[i + 1];
setlength(s, length(s) - 1);
end;
var
i, j, t, tt, n: Integer;
s: string;
begin
Readln(t);
for tt := 1 to t do
begin
Readln(n);
Writeln('Case ', tt, ':');
for i := 1 to n do
begin
Readln(s);
for j := 1 to Length(s) do
While (s[j] = ' ') and (s[j + 1] = ' ') do
Shift(s, j);
Writeln(s);
end;
if tt < t then
Writeln;
end;
end.
Code: Select all
1
1
012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
Code: Select all
012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
Output is right.brianfry713 wrote:Input:Output should be:Code: Select all
1 1 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
Code: Select all
012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789