С клавиатуры вводится строка. Подсчитать в ней количество слов. Pascal ABC
Answers & Comments
zarembo73
Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:
Var s:string; i,k:integer; Begin writeln('Введите строку'); readln(s); k:=0; for i:=1 to length(s) do begin if s[i]=' ' then k:=k+1; end; writeln('Количество слов в предложении = ',k+1); end.
А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:
var s: string; i, k: integer; begin k := 0; writeln('Введите строку: '); readln(s); s:= ' ' + s; for i:=1 to length(s)-1 do if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1; writeln(k) end.
Answers & Comments
Var s:string;
i,k:integer;
Begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if s[i]=' ' then k:=k+1;
end;
writeln('Количество слов в предложении = ',k+1);
end.
А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:
var s: string;
i, k: integer;
begin
k := 0;
writeln('Введите строку: ');
readln(s);
s:= ' ' + s;
for i:=1 to length(s)-1 do
if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1;
writeln(k)
end.