| elen_sewer | Дата: Среда, 07.05.2014, 11:31 | Сообщение # 1 |
|
Рядовой
Группа: Администраторы
Сообщений: 13
Статус: Offline
| Здесь мы будем делиться решениями задач.
|
| |
|
|
| elen_sewer | Дата: Среда, 07.05.2014, 11:33 | Сообщение # 2 |
|
Рядовой
Группа: Администраторы
Сообщений: 13
Статус: Offline
| Задача была такая: подсчитать, какое количество раз слово КОТ встречается в тексте. Денис Барыбин предложил такое решение:
Program oto;
var a,y:string;
b,v:integer;
begin
v:=0;
write('Введите вашепредложение: ');read(a);
for b:=1 to length(a) do
begin
y:=copy(a,b,4);
if (y='кот ')or (y='Кот ') or (y='кот') or (y='Кот')
then inc(v);
end;
if v=1 then
writeln('Слово"кот" встретилось целый ',v,' раз!')
else
writeln('Слово"кот" встретилось целых ',v,' раз!');
end.
|
| |
|
|
