Питання 2
відповідь D

Питання 3
відповідь C

Питання 4
відповідь B

Питання 5
відповідь С

Питання 6
відповідь A

Питання 7
відповідь А

Питання 8
відповідь A

Питання 9
відповідь C

Питання 10
відповідь B

Питання 11
C

Питання 12
відповідь B

Питання 13
C:\BOOK\PR1

Питання 14
відповідь приблизно 7,8

Питання 15
відповідь BDCAE

Питання 16
відповідь 7

Питання 17
CBDA

Питання 18
ABD

var s:string;
k,i:integer;
begin
readln(s);
s:=s+' ';
// забираємо лишні пробіли, залишивши тільки по одно після кожного слова
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);

k:=0;
for i:=1 to length(s) do
if s[i]=' ' then inc(k);
writeln(k)
end.

512000бит/с * 16с / 8бит / 1024байт=1000 килобайт

Наприклад циклом while(pos(' ',s) = 1) and(length(st) > 0) do delete (s,1,1);
можна видалити всі прогалини що йдуть спереду, а потім будемо рахувати тільки останній пробіл перед кожним словом.
k:=1; так як у реченні одне слово є завжди, крім випадку коли воно складалося із самих пробіів, тоді к=0
for i:=1 to length(s)-1 do
if (s[i]=' ') and (s[i+1]<>' ') then inc(k);

var s:string;
k,i:integer;
begin
writeln('Введіть речення');
readln(s);
s:=s+' ';
while(pos(' ',s) = 1) and(length(s) > 0) do delete (s,1,1);
if s='' then k:=0 else k:=1;
for i:=1 to length(s)-1 do
if (s[i]=' ') and (s[i+1]<>' ') then inc(k);
writeln('Кiлькiсть слiв у даному реченнi - ',k);
readln
end.

Program V9_21;
var s:string;
k,i:integer;
begin
readln(s); {читаємо стрічку з клавіаткури}
s:=' '+s; {додаємо пропуск в початок для коректної обробки першого (чи єдиного) слова }
k:=0; {спочатку результат - 0 }
for i:=2 to length(s) do
if (s[i]<>' ')and (s[i-1]=' ')then inc(k); {якщо попередній символ пропуск, а поточний ні - це нове слово}
writeln(k)
end.
Попередньо наведений розв"язок KulAlex не вірний, Bandalaк - не ефективний, багато лишніх дій

var s:string;
k,i:integer;
begin
readln(s);
s:=s+' ';
// забираємо лишні пробіли, залишивши тільки по одно після кожного слова
while pos(' ',s)<>0 do // тут два
delete(s,pos(' ',s),1); // тут два
if s[1]=' ' then delete(s,1,1);
k:=0;
for i:=1 to length(s) do
if s[i]=' ' then inc(k);
writeln(k)
end.

а на рахунок лишнів пропусків, має бути культура набору тексту, тільки один пропуск між словами

var s:string;
k,i:integer;
begin
writeln('Введiть речення');
readln(s);
s:=s+' ';
k:=0;
for i:=1 to length(s)-1 do
if (s[i]=' ') and (s[i+1]<>' ') then inc(k);
writeln('Кiлькiсть слiв у даному реченнi - ',k);
readln
end.

Практично те ж саме що і у pasichov, тільки з іншого боку!