Дана строка символов. Определить количество слов, которые состоят из одной буквы.

@Angel-dm · Регистрация: 21.12.2009

Author24 — интернет-сервис помощи студентам

Дана строка символов. Определить количество слов, которые состоят из одной буквы.

@yanyk1n · 20.04.2010, 21:07

Pascal

uses crt;
var st, buf:string;
i,k:integer;
f:boolean;
 
begin
    write('-> ');
    readln(st);
    buf:=''; 
    for i:=1 to length(st) do
    begin
        if st[i]<>' ' then
        begin
            buf := buf + st[i];
            f:=true;
        end else begin
            if f then
            begin
                if length(buf)=1 then inc(k);
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
        if length(buf)=1 then inc(k);
        buf:='';
    end;
    writeln(k);
    readln;
end.

@Angel-dm 113 / 110 / 33 Регистрация: 21.12.2009 Сообщений: 322
		1
	Дана строка символов. Определить количество слов, которые состоят из одной буквы. 20.04.2010, 21:03. Показов 1463. Ответов 1 Метки нет (Все метки) Дана строка символов. Определить количество слов, которые состоят из одной буквы. 0

	20.04.2010, 21:07

Дана строка символов. Определить количество слов, которые состоят из одной буквы.

Решение