Program esep;
const min = -1;
max = 1;
step = 0.1;
var a, b, x, y : real;
begin
x := min;
write('введите a, b, x: ');
readln(a, b, x);
repeat y := 1+sqr(a+ b)/(x-a);
writeln('X = ', x:6:2, ' Y(X) = ', y:6:2);
x := x + step
until x >= max + step;
readln
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.
Тут дело в логических выражениях
запрос словестно: (фрегат и эсминец)
ранние запросы:
фрегат или эсминец 3000(a|b)
фрегат 2000(a)
эсминец 2500(b)
вообще, согласно формулам коньюнкции-дизюнкции:
а+b-a|b=a&b
подставляем:
2000+2500-3000=1500