Задача: составить программу для определения на факт вхождения заданного символа в введенную строку.

 



Решение:
Поиск символа в строке

01 Uses Crt;
02 Var
03 t,s: String;
04 i: Integer;
05 otvet: Boolean;
06 Begin
07 ClrScr;
08 Writeln('Введите строку:');
09 Readln(t);
10 Write('Введите символ поиска: ')
11 Readln(s);
12 For i:=1 To length(t) Do
13 If t[i]=s Then otvet:=true;
14 If Otvet=true Then Write('да')
15 Else Write('нет');
16 Repeat Until KeyPressed
17 End.