C+f выполняет поиск по открытому окну (если я так понял вопрос).
Попробуй открыть даже сайт какой то и нажать это.
===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
¬А∨¬B=F
А В F
0 0 1
0 1 1
1 0 1
1 1 0
PascalABC.NET
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');<span>
end.</span>
0,000044 вот
это же просто