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

Question

Бенедиктыч

10 сентября, 10:00

+1

Ответы (1)

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

Лонгина · Answer 1

var s:string;

c:char;

begin

readln (s, c) ;

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

end.