# Pascal subject Stroki1) From the keyboard is entered a line. To count How to learn how many times in it meet a point.2) From the keyboard are entered a line. To remove from it all " superfluous " gaps, having left on one between words. For example, on a vkhodestrok "123567890 ", at the exit "123,567,890 "

Molafit

19

Var S: string; k, i: integer; Begin k: = 0; WriteLn (Enter a line); ReadLn(S); For i: = 1 to Length(S) do if S[i] =. then k: = k+1; WriteLn (Quantity of points in line: k) End. Var S, S1: string; i: integer; Begin WriteLn (Enter a line); ReadLn(S); S1: =; For i: = 1 to Length (S)-1 do Begin if S[i] & lt; & gt; then S1: = S1+S[i]; if (S[i] =) and (S[i+1] & lt; & gt;) then S1: = S1+S[i]; End; S: =; if S1[1] = then For i: = 2 to Length (S1) do S: = S+S1 [i] else For i: = 1 to Length (S1) do S: = S+S1[i]; WriteLn(S); End.

77

Answer add
andre

### Other questions in the section - informatics

Marianovich

Pascal a subject of Line 1) From the keyboard is entered the line consisting

2020-10-26 10:00:32

Kirponos

To make the program - the converter which requests type of unit of measure

2020-10-26 10:00:32

Kaebvan

In the set whole positive number N (0 & lt; N & lt; 2^10)

2020-10-26 10:00:32

Pahomiy

Need help!!!! PLEASE!!! Mr. Fox learned a new algorithm of enciphering: it is necessary

2020-10-26 10:00:32

Tygra

3. zanimayetinf volume v800 bitkak to learn the image of RGB of 20х10 pixels

2020-10-26 10:00:32