Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
1)“Все караси - рыбы”, “Интеллектуальная собственность охраняется законом”, “Все квадраты – равносторонние прямоугольники”.
2)<span>“Ни один лев не есть травоядное животное”. Видим полную несовместимость субъекта и предиката. Объемы их полностью исключают друг друга.
3)</span>“Некоторые студенты - спортсмены”. Здесь S и P – перекрещивающиеся понятия, их объемы совпадают частично.“Некоторые преступления являются должностными”: предикат подчинен субъекту. Объем предиката полностью входит в объем субъекта, объем субъекта лишь частично совпадает с объемом предиката.<span>
4)</span>“Некоторые студенты не являются спортсменами” – часть объема субъекта входит в объем предиката, это перекрещивающиеся понятия.<span>“Некоторые геометрические фигуры не являются треугольниками”: субъект и предикат – в отношении подчинения.</span>
Var
f,b,a,i:longint; // описание переменных
begin
write('Write b, a: ');
readln(b,a); // Присваивание b, a числа
f:=1; // Присваивание f=1
for i:=1 to b do // Нахождение b! (факториала)
f:=f*i;
writeln('x= ',f*(1/sqr(a)):0:2); // вывод результатов(выполнение форумулы)
readln
end.