Итак:
на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов
Выделяют следующие отношения понятий по объему:
тождество или совпадение объемов, означающее, что объем одного понятия равен объему другого понятия;
подчинение или включение объемов: объем одного из понятий полностью включен в объем другого;
исключение объемов - случай, в котором нет ни одного признака, который бы находился в двух объемах;
пересечение или частичное совпадение объемов;
соподчинение объемов - случай, когда объемы двух понятий, исключающие друг друга, входят в объем третьего.
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
s:=s.Replace('ДЕТЕКТИВ','РОМАН'); s.Println
end.
<u>Примеры</u>
> ДЕТЕКТИВ БЕЗ ПОГОНИ - ЭТО НЕ ДЕТЕКТИВ
РОМАН БЕЗ ПОГОНИ - ЭТО НЕ РОМАН
> НЕ МОГУ ЗАСНУТЬ БЕЗ ДЕТЕКТИВА
НЕ МОГУ ЗАСНУТЬ БЕЗ РОМАНА