Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
– ∙ /– ∙ /– ∙ – /– ∙ /∙ – ∙ ∙ /– ∙ – /∙ ∙
н– ∙ к– ∙ – и∙ ∙ л∙ – ∙ ∙ м– –
ннкнлки
8 килобайт-8000 байт, 1 мегабайт- 1000000 байт, дальше там не получится
Ответ очень прост, на диск вида CD-RW (RW- обозначает read - читать, write - записывать) информацию можна записывать много раз, причем удаляя ее, а на CD-R (R- обозначает read - читать)можно только раз записать, информация с этого диска не удаляется
1. (b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+1/(b*b)
2. (a/c)*(b/d)-(a*b-c)/(c*d)
3. x-x*x*x/3+x*x*x*x*x/5
4. (x+y)/(x+1)-(x*y-12)/(34+x)