М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ahmet2007
ahmet2007
20.10.2020 05:52 •  Информатика

решить задачу в 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 четверть
4,6(81 оценок)
Ответ:
tanyakozina00
tanyakozina00
20.10.2020
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.
4,7(32 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ