Помогите решить задачу в паскале!!!Дана строка S и символ C. определить есть ли символ C...

Question

Помогите решить задачу в паскале!!!
Дана строка S и символ C. определить есть ли символ C в строке S

Answer 1

Паскаль

Откомпилирован в: Pascal ABC

 

program z1;
uses crt;
var
   s: string;
   c: char;
   i: integer;
begin
     write('  Vvedite strocy:  ');
     readln(s);
    
     writeln();
    
     write(' Vvedite sivol dl poiska:  ');
     readln(c);
    
     writeln();
     for i := 1 to length(s) do
     if s[i] = c then //
     begin
          writeln(' Simvol prinadlech stroce = ', s);
          break;
     end;
     if s[i] <> c then writeln(' Simvola net v stroke = ', s);
end.