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

Question

Бенедиктыч

28 марта, 20:45

+4

Ответы (1)

Знаете ответ на вопрос?

Лонгина · Answer 1

var s:string;

c:char;

begin

readln (s, c) ;

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

end.