Регистрация
omarova06
02.01.2022 00:32
Информатика
Есть ответ 👍

Склавиатуры вводится строка из нескольких символов разделенных одним или несколькими пробелами.определите количество слов в строке

104
120
Посмотреть ответы 2

Ответы на вопрос:

alyo7na
alyo7na
4,6(67 оценок)

var

  s : string;

  flag : boolean;

  i, c : integer;

begin

  readln (s);

  c : = 0; flag : = false;

  for i : = 1 to length (s) do

  begin

    if flag then

    begin

      if s[i] = ' ' then flag : = false;

    end

    else

      if s[i] < > ' ' then

      begin

        inc (c);

        flag : = true;  

      end;

    begin

    end;

  end;

  writeln (c);

end.

uchenik1988
uchenik1988
4,6(87 оценок)
Var c: real; begin     read(c);     writeln(c*2); end.

Популярно: Информатика