Дано предложение. В нем слова разделены одним пробелом (начальные и ко нечные пробелы и символ "- в предложении отсутствуют). Определить коли чество слов в предложении.
Ответы
Ответ дал:
0
{ Ответ дан на языке Pascal }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
I: INTEGER;
Count: INTEGER;
BEGIN
Count := 0;
WRITE('Введите строку: ');
READLN(Str);
FOR I := 1 TO LENGTH(STR)
DO
BEGIN
IF STR[I] = ' '
THEN Count := Count + 1;
END;
WRITELN(Count + 1);
END.
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
I: INTEGER;
Count: INTEGER;
BEGIN
Count := 0;
WRITE('Введите строку: ');
READLN(Str);
FOR I := 1 TO LENGTH(STR)
DO
BEGIN
IF STR[I] = ' '
THEN Count := Count + 1;
END;
WRITELN(Count + 1);
END.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад