Информатика, вопрос задал samouchka97 , 9 лет назад

Задана строка. Подсчитать, сколько пробелов в строке. Паскаль.
Спасибо.

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

Ответил Аноним
0
program E07;
  uses crt;
    var
      S: string;
      i,k: integer;
begin
  clrscr;
  writeln('Введите строку: ');
  readln(S);

    K:=0;

    for i:=1 to length(S) do
    if S[i] = ' ' then
      K:=K+1;

    writeln('В строке ',K:2,' пробелов!');
end.
Ответил samouchka97
0
Знакомые всё лица :)
Большое спасибо.
Ответил Аноним
0
Ага
Новые вопросы