Срооооччнооооо!!!! С клавиатуры вводят слово и символ.Составте программу которая:проверяет,есть ли в этом слове заданный символ!

1

Ответы и объяснения

2013-11-24T15:20:59+00:00
Uses crt;
var s:string;
c:char;
i,k:integer;
begin
readln(s);
readln(c);
for i:=1 to length(s) do
if s[i]=c then inc(k);
if k=0 then writeln('нет') else writeln('есть');
end.