По данному запросу найдутся абсолютно все сайты (знак | в запросе - или).
350+500+200−5−5−(20-5)−(10-5)−(50-5)=975
Объяснение: при сложении 350+500+200 мы получаем сумму всех 3 кругов по отдельности. При этом, при подсчете общего количества сайтов, в данной сумме значение центрального сегмента у нас утроено, а тех трех сегментов с которыми центральный имеет общую сторону, удвоено. Поэтому мы 2 раза отнимаем 5 и по 1 разу отнимаем разность 50 и 5, 20 и 5, 10 и 5.
Ответ: 975
<span>
var
l,a,b:integer;
s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
<span>end.
var
n,i,k:integer;
s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
<span>end.</span></span></span>
1) Конец
2) Это термин в Паскале ( <span>readln(x) читает вводимую с клавиатуры строку в переменную х и переносит курсор на следующую строку )</span>
3) Отличие процедуры Writeln от оператора Write заключается в том, что Writelnпосле вывода сообщения на экран переводит курсор на другую строку.
Var
a: integer;
begin
readln(a);
if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 10 mod 10 = a div 100) then
writeln('Есть')
else
writeln('Нет');
<span>end.</span>