Правила форума
Прочтите прежде чем задавать вопрос!
условие программы:
################################################################
С клавиатуры посимвольно вводится фраза. Определите, сколько имен собственных содержится в данной фразе. Именем собственным считать слово, начинающееся с большой буквы. Фраза считается введенной, если очередной веденный символ - точка.
################################################################
Цитата
var ch:char; //вводимый символ
old_ch:char;//предидущий символ
k:integer; //кол-во слов собственных
begin
read(ch);
old_ch:=' ';
k:=0;
while ch<>'.' do
begin
if (ch=UpCase(ch)) and (old_ch=' ') then k:=k+1;
old_ch:=ch;
read(ch);
end;
Writeln(k);
readln;
end.
old_ch:char;//предидущий символ
k:integer; //кол-во слов собственных
begin
read(ch);
old_ch:=' ';
k:=0;
while ch<>'.' do
begin
if (ch=UpCase(ch)) and (old_ch=' ') then k:=k+1;
old_ch:=ch;
read(ch);
end;
Writeln(k);
readln;
end.
