Дана строка. Определить, сколько раз входит в нее группа букв abc.

@aragonzp · Регистрация: 13.01.2010

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

@Puporev · 13.04.2010, 09:49

Pascal

k:=0;
while pos('abc',s)>0 do
 begin
  k:=k+1;
  delete(s,pos('abc',s),3);
 end;

@askhatUfa · 18.04.2011, 19:50

Puporev
Сможете полностью написать программу(ну там program .....), а то мне этот паскаль вообще не понятен(...
Заранее Спасибо

@Dekio · 19.04.2011, 08:38

Pascal

program Dekio;
var
str: string;
cnt: integer;
begin
readln(str);
while pos('abc',str)<>0 do
begin
delete(str,pos('abc',str),3);
inc(cnt);
end;
writeln(cnt);
end.

@askhatUfa · 19.04.2011, 17:24

Dekio
Спасибо, конечно, но ничего, что ваше сообщение не много отличается от сообщения Puporev

Его сообщения

Pascal

k:=0;
while pos('abc',s)>0 do
 begin
  k:=k+1;
  delete(s,pos('abc',s),3);
 end;

И ваше

Pascal

program Dekio;
var
str: string;
cnt: integer;
begin
readln(str);
while pos('abc',str)<>0 do
begin
delete(str,pos('abc',str),3);
inc(cnt);
end;
writeln(cnt);
end.

@Dekio · 19.04.2011, 17:27

askhatUfa, если вы, уважаемый, так следите за сообщениями, то вы должны увидеть что попросили программу полностью.

Сообщение от askhatUfa

Сможете полностью написать программу(ну там program .....), а то мне этот паскаль вообще не понятен(...

В следующий раз, открывайте глаза прежде чем начинать умничать

@Ulen'ka · 24.04.2011, 21:24

Сообщение от Dekio

Pascal

program Dekio;
var
str: string;
cnt: integer;
begin
readln(str);
while pos('abc',str)<>0 do
begin
delete(str,pos('abc',str),3);
inc(cnt);
end;
writeln(cnt);
end.

А сможете еще блок-схему сделать?)

@Dekio · 24.04.2011, 21:28

Ulen'ka, а сами?

@Ulen'ka · 24.04.2011, 21:31

Мне рекомендовали какую то программу, но у меня не получилось "создать" ее..
Но у вас уже она есть, скорее всего, для вас это пустяковое дело, )
Сможете помочь мне?

@Dekio · 24.04.2011, 21:40

Сообщение от Ulen'ka

рекомендовали какую то программу, но у меня не получилось "создать" ее..

Ну так создавайте тему и выкладывайте "какую то программу" там

@SuPeR XaKer · 24.04.2011, 21:40

эмм...В гугле забанили?Ulen'ka
ладно так и быть бан сниму.Пропиши в гугле Скачать FCEditor.Net

@aragonzp 3 / 3 / 0 Регистрация: 13.01.2010 Сообщений: 51
		1
	Дана строка. Определить, сколько раз входит в нее группа букв abc. 13.04.2010, 09:30. Показов 24198. Ответов 10 Метки нет (Все метки) Дана строка. Определить, сколько раз входит в нее группа букв abc. 0

@askhatUfa 1 / 1 / 0 Регистрация: 18.04.2011 Сообщений: 3
	18.04.2011, 19:50	3
	Puporev Сможете полностью написать программу(ну там program .....), а то мне этот паскаль вообще не понятен(... Заранее Спасибо 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	19.04.2011, 17:27	6
	askhatUfa, если вы, уважаемый, так следите за сообщениями, то вы должны увидеть что попросили программу полностью. Сообщение от askhatUfa Сможете полностью написать программу(ну там program .....), а то мне этот паскаль вообще не понятен(... В следующий раз, открывайте глаза прежде чем начинать умничать 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	24.04.2011, 21:28	8
	Ulen'ka, а сами? 0

@Ulen'ka 0 / 0 / 0 Регистрация: 20.04.2011 Сообщений: 23
	24.04.2011, 21:31	9
	Мне рекомендовали какую то программу, но у меня не получилось "создать" ее.. Но у вас уже она есть, скорее всего, для вас это пустяковое дело, ) Сможете помочь мне? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	24.04.2011, 21:40	10
	Сообщение от Ulen'ka рекомендовали какую то программу, но у меня не получилось "создать" ее.. Ну так создавайте тему и выкладывайте "какую то программу" там 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	24.04.2011, 21:40	11
	эмм...В гугле забанили?Ulen'ka ладно так и быть бан сниму.Пропиши в гугле Скачать FCEditor.Net 1