Pascal: строки - Помощь студентам

Nika9 · 22.05.2011, 22:25

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

MyLastHit · 22.05.2011, 22:38

Код:

kolvo:=0;
for i:=1 to length(s) do
  if (s[i]=' ') and (s[i+1]>='0') and (s[i+1]<='9') then
  k:=i+1;
while s[k]<>' ' do
begin
  inc(kolvo);
  inc(k);
end;
writeln(kolvo);

Наверное так, если нет - поправьте...

Nika9 · 24.05.2011, 20:11

большое спасибо)))

22.05.2011, 22:25	#1
Nika9 Регистрация: 15.01.2011 Сообщений: 5	Pascal: строки Помогите пожалуйста написать программу которая подсчитывает количество букв первого из слов, начинающихся цифрой

22.05.2011, 22:38	#2
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Код: `kolvo:=0; for i:=1 to length(s) do if (s[i]=' ') and (s[i+1]>='0') and (s[i+1]<='9') then k:=i+1; while s[k]<>' ' do begin inc(kolvo); inc(k); end; writeln(kolvo);` Наверное так, если нет - поправьте... Ненавижу быть как все, но люблю, чтобы все были как я.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строки (Pascal)	Ногин Антон	Помощь студентам	9	24.09.2010 12:44
Строки в Pascal	Сristina	Помощь студентам	2	03.06.2010 02:27
Pascal Строки	SVadiks	Помощь студентам	2	18.02.2010 23:56
Pascal. СтрокИ.	АполинАрия	Помощь студентам	8	29.05.2009 00:16
Pascal. Строки	cudalover	Помощь студентам	2	11.04.2009 15:34

24.05.2011, 20:11	#3
Nika9 Регистрация: 15.01.2011 Сообщений: 5	большое спасибо)))