Найти количество букв 'о' в тексте
Найти количество букв 'о' в тексте
Решение:
Program myac;
uses crt;
var d:string;
o,i:integer;
BEGIN
write ('наберите текст ');
readln(d);
n:=0;
for i:=1 to length(d) do
if d[i]='o' then o:= o+1;
write('В тексте o=', o);
readln;
END.
P.s Букву 'о' можно заменить на любую другую.
|
| Категория: Строки | Добавил: deespe (31.01.2011)
|
| Просмотров: 3264
| Рейтинг: 4.5/2 |
|
