1) <span>(A v B) & (A v B v C) = A v B</span>
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadInteger2('Введите границы диапазона a и b:');
var (s, n) := (0, 0);
for var x := a to b do
if x.IsOdd and (x mod 5 <> 0) then (s, n) := (s + x, n + 1);
Println(s / n)
end.
<h2>Пример</h2><h3>Введите границы диапазона a и b: 15 149</h3><h3>82.5185185185185 </h3>
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Сумма значений равна ',a.Sum)
end.
Берем с точки (-5;7),чертим до точки (-3;11),теперь вниз до точки (-3;1).Векторы в точке (-5;7) и (-3,11).
Program MissPhelps;
uses crt;
var a,b,x: integer;
F,k:real;
begin
writeln('Начало');
readln(a);
writeln('Конец');
readln (b);
F:=-999;
x:=a;
while x<=b do begin
k:= sin(x)/((3*x)+7);
if F< k then
F:=k ;
inc(x);
end;
write('Макс на отрезке',F);
end.