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

1

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

  • Kitsu
  • почетный грамотей
2012-11-30T20:46:23+04:00

var s:string;

c:char;

begin

readln(s,c);

if pos(c,s)<>0 then writeln('est') else writeln('netu');

end.