37 mod 2 будет равно 1.
151 mod 2 будет равно 1.
== проверяет одинаково ли значение операндов, если одинаковы – то условие является истинной (true);
!= проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
<> проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
> проверяет значение левого оператора, если он больше, чем правый – то условие является истинной;
< проверяет значение левого оператора, если он меньше, чем правый – то условие является истинной;
>= проверяет значение левого оператора, если он больше или равен правому – то условие является истинной;
<= проверяет значение левого оператора, если он меньше или равен правому – то условие является истинной;
Когда человек собирает сведения об окружающем мире, он собирает информацию. Эта информация, накапливаясь тысячелетиями, сохраняется в виде примет, личного опыта. Фундаментальные знания о природе, связанные с наблюдением за ней, легли в основу таких наук как физика, химия, биология, геология и смежных с ними современных учениях. Ответом на вопрос станет только одно слово - информация.
Var
x1, x2, x3, x4, y1, y2, y3, y4: real;
function VectorLength(x1, y1, x2, y2: real): real;
begin
VectorLength := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
function VectorSlope(x1, y1, x2, y2: real): real;
begin
VectorSlope := (y1 - y2) / (x1 - x2);
end;
begin
readln(x1, y1);
readln(x2, y2);
readln(x3, y3);
readln(x4, y4);
if (VectorLength(x1, y1, x2, y2) = VectorLength(x4, y4, x3, y3))
and (VectorSlope(x1, y1, x2, y2) = VectorSlope(x4, y4, x3, y3)) then
writeln('Yes')
else writeln('No');
end.
Var x,y:real;
begin
write('x, y: ');
readln(x,y);
if (y<=0)and(y>=1.5*x-6)and(y>=-1.5*x-6)
then writeln('Да') else writeln('Нет');
end.
Пример:
x, y: 1 -2
Да