Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
1)Значение величины как и в информатике и математике одинаковы. Величина делится на Постоянные и Переменные. 1. Постоянной называется величина, значение которой не изменяется в процессе выполнения программы. 2. Переменной называется величина, значение которой изменяется в процессе выполнения программы.
2) Существуют три основных типа величины 1.Числовое 2.Символьный 3.Логический.
3) Программа присваивания записывается таким образом := (В языке Pascal).
4) Программа ввода записывается таким образом read(); или readln();-полностью readline(); (В языке Pascal).
5) 1.Программа вывода записывается таким образом write('Любая надпись'); или writeln('Любая надпись'); полностью writeline('Любая надпись'); 2. Программа write или writeln выводит канцоль или в окно вывода то что ты написал в write или в writeln.
