Найти значение квадратичной функции y:= x2-3 на отрезке [а,в] с шагом +0,5 (т.е в точках, например, 1, 1,5 ,2 и тд очень

Объяснение:

Байт (англ. byte) (русское обозначение: байт и Б; международное: B, byte)[1] — единица хранения и обработки цифровой информации; совокупность битов, обрабатываемая компьютером одновременно. В современных вычислительных системах байт состоит из 8 бит и, соответственно, может принимать одно из 256 (от 0 до 255) различных значений (состояний, кодов). Однако в истории компьютерной техники существовали решения с иными размерами байта (например, 6, 32 или 36 бит), поэтому иногда в компьютерных стандартах и официальных документах для однозначного обозначения группы из 8 бит используется термин «октет» (лат. octet).

В большинстве вычислительных архитектур байт — это минимальный независимо адресуемый набор данных.

1 килобайт = 1024 байта)

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (sn,pp,kp):=(0,1,0);
  var n:integer;
  repeat
    Read(n);
    if (n<0) and n.IsOdd then sn+=n
    else
      if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
  until n=0;
  if sn=0 then begin
    Writeln('Нет отрицательных нечетных чисел');
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
  else begin
    Writeln('Сумма отрицательных нечетных чисел: ',sn);
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
end.

Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080