Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>
using System;
namespace App {
class Program {
static void Main() {
Console.Write("V = ");
var V = double.Parse(Console.ReadLine());
Console.WriteLine("а = {0}", Math.Pow(V, 1 / 3.0));
Console.ReadKey();
}
}
}
Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
