решить задачу в MS Excel!При плане продаж 20 единиц в месяц оклад 30000 руб. Если продавец продал менее 20 единиц, то за каждую непроданную единицу до плана минус 200 руб. Если продавец продал более 20 единиц, то за каждую проданную единицу сверхплана по 500 руб. А) Рассчитать зарплату за январь и февраль с функции ЕСЛИ. Б) Рассчитать средние продажи и среднюю зарплату с СРЗНАЧ В) Рассчитать минимальные (функция МИН) и максимальные (функция МАКС) продажи и зарплату решить задачу в MS Excel!При плане продаж 20 единиц в месяц оклад 30000 руб. Ес">

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

№1
begin
  var s:=ReadInteger.ToString;
  if s=s.Distinct.Sorted.JoinIntoString('') then
    Writeln('Цифры являются возрастающей последовательностью')
  else
    Writeln('Цифры не являются возрастающей последовательностью')
end.

Примеры
148
Цифры являются возрастающей последовательностью

355
Цифры не являются возрастающей последовательностью

№2
begin
  var x,y:real;
  Write('Введите координаты точки: '); Read(x,y);
  if x*y=0 then Writeln('Нули вводить не допускается')
  else
    if x*y>0 then
      if x>0 then Writeln('I четверть')
      else Writeln('III четверть')
    else
      if x>0 then Writeln('IV четверть')
      else Writeln('II четверть')
end.

Пример
Введите координаты точки: -2 -3.2
III четверть

1)
Program n1;
var n:integer;
begin
write('Введите 3-х значное число: ');
readln(n);
if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then
writeln('true')
else writeln('false');
end.
2)
Program n2;
var x,y: real;
begin
readln(x,y);
if(x=0) and (y=0) then writeln('точка в начале координат')
else if(x>0)and(y>0) then writeln('I четверть')
else if(x<0)and(y>0) then writeln('II четверть')
else if(x<0)and(y<0) then writeln('III четверть')
else if(x>0)and(y<0) then writeln('IV четверть')
else if(x=0)and(y<>0) then writeln('точка на оси OY')
else if(x<>0)and(y=0) then writeln('точка на оси OX');
end.