لسوء الحظ ، لا توجد وظيفة في باسكال تسمح بقراءة أسطر متعددة مفصولة بمسافات من سطر واحد. للقيام بذلك ، عليك كتابة الوظيفة الخاصة بك:
<قبل>
فارز ، ث: خيط ؛
i ، j ، ind: عدد صحيح ؛
أ: مجموعة من الخيط.
يبدأ
readln (ق) ؛
setlength (a ، length (s)) ؛
أنا: = 1 ؛
ind: = 0 ؛
بينما أنا العلامة & lt ؛ طول (ق) تفعل
يبدأ
بينما (i & lt ؛ length (s)) و (& # 39 ؛ & # 39 ؛ + s [i] = & # 39 ؛ & # 39 ؛) أفعل أنا + = 1 ؛
ي: = أنا + 1 ؛
ث: = & # 39 ؛ & # 39 ؛ + s [i] ؛
بينما (j & lt ؛ length (s)) و (& # 39 ؛ & # 39 ؛ + s [j] & lt ؛ & gt ؛ & # 39 ؛ & # 39 ؛) تبدأ
w + = s [j] ؛
ي + = 1 ؛
نهاية؛
a [ind]: = w ؛
إيند + = 1 ؛
أنا: = ي ؛
نهاية؛
اكتب (أ [0] ، أ [1]) ؛
نهاية.
نتيجة لذلك ، نحصل على مجموعة من السلاسل.