pascal
Объяснение:
var
s: string;
begin
Write('Введите строку: ');
ReadLn(s);
if pos('Пока',s) > 0 then
WriteLn('Введенная строка содержит `Пока`')
else
WriteLn('Введенная строка не содержит `Пока`')
end.
pascal
Объяснение:
var
s: string;
begin
Write('Введите строку: ');
ReadLn(s);
if pos('Пока',s) > 0 then
WriteLn('Введенная строка содержит `Пока`')
else
WriteLn('Введенная строка не содержит `Пока`')
end.