불행히도 Pascal에는 한 줄에서 공백으로 구분된 여러 줄을 읽을 수 있는 기능이 없습니다. 이렇게 하려면 다음과 같이 자신만의 함수를 작성해야 합니다.
<예비>
vars, w: 문자열;
i, j, ind: 정수;
a: 문자열 배열;
시작하다
readln(s);
setlength(a, 길이(들));
나는 := 1;
산업:= 0;
내가 < 길이
시작하다
while (i < length(s)) and ('' + s[i] = '' ') do i += 1;
j := i + 1;
w := '' + s[i];
동안 (j < 길이(들)) 및 ('' +s[j] <> ' ') 시작
w += s[j];
j += 1;
끝;
a[ind] := w;
산업 += 1;
나는 := j;
끝;
write(a[0], a[1]);
끝.
결과적으로 문자열 배열을 얻습니다.