Website and domain for sale: mail@discussmain.com

Pascal a subject of Line 1) From the keyboard is entered the line consisting of three words. Words separate from each other exactly one gap. To trade places 2 and 3 words. 2) From the keyboard the line in which is one opening and one closing parentheses is entered. To display the symbols concluded between these two brackets.3) From the keyboard the line is entered. To replace in it all gaps with exclamation marks.

99
1) Var S123, S2,S3,S132: string; i: integer; Begin WriteLn (Enter a line); ReadLn (S123); i: = 1; While S123[i] & lt; & gt; do i: = i+1; i: = i+1; S2: =; While S123[i] & lt; & gt; do Begin S2: = S2+S123[i]; i: = i+1 End; i: = i+1; S3: =; While i< = Length (S123) do Begin S3: = S3+S123[i]; i: = i+1 End; S132: =; i: = 1; While S123[i] & lt; & gt; do Begin S132: = S132+S123[i]; i: = i+1; End; S132: = S132 +; i: = 1; While i< = Length (S3) do Begin S132: = S132+S3[i]; i: = i+1; End; S132: = S132 +; i: = 1; While i< = Length (S2) do Begin S132: = S132+S2[i]; i: = i+1; End; WriteLn (S132) End. Example: Enter line 123 456 789 123 789 456 2) Var S: string; i: integer; Begin Write (Enter a line:); ReadLn(S); i: = 1; While S[i] & lt; & gt; (do i: = i+1; i: = i+1; While S[i] & lt; & gt;) do Begin Write (S[i]); i: = i+1 End; End. Example: Enter a line: 6543654 (000) 65431 000 3) Var S: string; i: integer; Begin Write (Enter a line:); ReadLn(S); For i: = 1 to Length(S) do if S[i] = then S[i]: =!; WriteLn(S) End. Example: Enter a line: From the keyboard the line is entered. To replace in it all gaps with exclamation marks. With! keyboards! it is entered! line.! To replace! in! to it! all! gaps! on! exclamatory! signs.!
200
Answer add