паскаль, пожалуйста помогите. Дана последовательность символов. Выяснить, есть ли в данной последовательности сочетание символов "ва"
Ответы
Ответ дал:
0
Var
S:string;
B:boolean;
i:integer;
Begin
B:=false;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i] = 'в' then
if S[i+1] = 'а' then B:=true;
if B then Write('Есть')
else Write('Нет')
End.
S:string;
B:boolean;
i:integer;
Begin
B:=false;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i] = 'в' then
if S[i+1] = 'а' then B:=true;
if B then Write('Есть')
else Write('Нет')
End.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад