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

Only · 1 Апр 2013

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

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

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

Only · 1 Апр 2013

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

Vladimir_S · 1 Апр 2013

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 · 1 Апр 2013

Блин вот:

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

А

в натуре

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

Only · 2 Апр 2013

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

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

Only

Новые

Only

Новые

Vladimir_S

Участник

interacia

Новые

Only

Новые

Похожие темы