<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
1)
Чтобы выражение было истинным, небходимо, чтобы и K>1 было истиной и не (K>13) тоже было истиной. не (K>13) это то же самое, что и K<=13. Тогда выходит, что формула будет истинна при значениях от 2 до 13.
2)
(K < 4) или (K >= 7)
Т.к. сказано, что выражение ложно, следовательно и (K<4), и (K>=7) - ложные высказывания. Значит K>=4 и K<7 - верные высказывания. Получается, что у Маши может быть либо 4, либо 5, либо 6 конфет.
1)
var x,s:real;
begin
readln(x);
s:=cos(x) - sin(x) + abs(x-7) + x*x - 1;
writeln (s)
<span>end.
2)
var x,y,s:real;
begin
readln(x,y);
s:=(x+y)/2;
writeln(s)
<span>end.
3)
var x,y:real;
begin
readln(x);
if x<0 then y:=x*x-5;
if x=0 then y:=3;
if x>0 then y:=x-3;
writeln(y)
<span>end.</span></span></span>