Website and domain for sale: mail@discussmain.com

The line of symbols is given. To determine length of a line. If length of a line & lt; =20 to find serial number of a symbol in a line. Pascal is necessary!!!!!!!!!!!!!!!! 1

331
Var S: string; C: char; i: integer; Begin Write (Enter a line:); ReadLn(S); Write (Enter a symbol:); ReadLn(C); For i: = 1 to S. Length do if S[i] = C then Write (i) End. Example: Enter a line: The line of symbols is given. To determine length of a line. If length of a line & lt; = 20 to find in a line serial number of a symbol * Enter a symbol: and 2 4 11 57 76 113
13
Answer add