Задача №19
Дан текст. Сколько в нём слов «что».
Program string_19-
uses crt-
var a : string-
i,l,k : longint-
label m-
begin
clrscr-
write(‘введите предложение: ‘)-readln(a)-
l:=length(a)-
m : for i:=1 to l do
if (a[i]=’ч’)and(a[i+1]=’т’)and(a[i+2]=’о’)then
begin
l:=l-3-delete(a,i,3)-
inc(k)-goto m-
end-
write(‘кол-во слов «что»: ‘,k)-
readln-
end.
Категория: Строки |
Дата: 16.01.13
|