Строки, Pascal. Нужна помощь

Only · 01.04.2013, 13:02

помогите написать программу, по заданию:

Цитата:

1. Дана строка символов. Выяснить имеются ли в данной строке рядом стоящие запятая и тире.

Only · 01.04.2013, 13:04

Блин, вот:
Дана строка символов. Выяснить имеются ли в данной строке рядом стоящие запятая и тире.

Vladimir_S · 01.04.2013, 14:23

Цитата:

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

Дана строка символов. Выяснить, имеются ли в данной строке рядом стоящие запятая и тире.

Код:

Var
 S:String;
 i:Byte;
 b:boolean;
Begin
 Writeln('Enter the string:');
 Readln(S);
 b:=false;
 For i:=2 to Length(S) do
  if ((S[i-1]='-') and (S[i]=',')) or ((S[i-1]=',') and (S[i]='-')) then b:=true;
 Writeln(b);
 Readln
End.

interacia · 01.04.2013, 14:34

Цитата:

Блин вот:

И вас с масленицей

А

Цитата:

в натуре

это такой тип данных

Only · 02.04.2013, 20:12

Спасибо, выручили.

01.04.2013, 13:04	#2 (permalink)
Only Member Регистрация: 24.03.2013 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блин, вот: Дана строка символов. Выяснить имеются ли в данной строке рядом стоящие запятая и тире.

02.04.2013, 20:12	#5 (permalink)
Only Member Регистрация: 24.03.2013 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо, выручили.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070