Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
Var a, b: array[1..10] of integer; i, min, max, sum: integer; begin min := 10; for i := 1 to 10 do begin write('Введите ',i,'-ый элемент первого массива '); Readln(a[i]); write('Введите ',i,'-ый элемент второго массива '); Readln(b[i]); if a[i] < min then min := a[i]; if b[i] > max then max := b[i]; end; for i := 1 to 10 do write(a[i], ' '); Writeln; for i := 1 to 10 do write(b[i], ' '); writeln; writeln('Минимальное первого массива ', min); writeln('Максимальное первого массива ', max); sum := min + max; for i := 1 to 10 do if (i mod 2) = 0 then a[i] := sum else b[i] := sum; for i := 1 to 10 do write(a[i], ' '); Writeln; for i := 1 to 10 do write(b[i], ' '); end.
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет