В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
lipaalexandrova
lipaalexandrova
20.11.2022 14:52 •  Информатика

Скласти програму Паскаль: знайти кількість від'ємних елементів масиву розмірністю 3х5​

Показать ответ
Ответ:
Alpetrova7
Alpetrova7
05.06.2023 11:40

рядом с пунктом предлагаемые поисковые запросы щелкните карточка (в publisher 2010 введите карточки в поле поиска).

поиск открыток

щелкните макет открытки, например открытка с (с лиловой лентой).

примечание: при желании вы можете распечатать карточку
с (фиолетовой лентой) на карточках avery 3379, 5315, 8315 и 8317.

нажмите кнопку создать. (в publisher 2010 нажмите кнопку скачать.)

совет: вам совсем не нравится этот макет открытки? щелкните макет страницы > изменение шаблона для поиска другого макета открытки.

замените текст или рисунок шаблона, щелкнув их правой кнопкой мыши и выбрав команду удалить текст или изменить рисунок.

чтобы настроить карточку, воспользуйтесь этими параметрами на вкладке макет страницы (в publisher 2010 нажмите кнопку формат на вкладке средства
рисования ).

попробуйте новую цветовую тему.

измените шрифт;

примените фон.

после изменения шаблона нужным образом щелкните файл.

для печати выполните одно из следующих действий.

нажмите кнопку " экспорт ",
чтобы найти файл в формате pdf или другой пакет, а также параметры для профессиональной или коммерческой печати. (в publisher 2010 щелкните сохранить _амп_ отправить для профессиональной печати.)

щелкните печать, чтобы распечатать открытку на своем принтере.

0,0(0 оценок)
Ответ:
wagnercop06s12
wagnercop06s12
17.10.2021 03:56

//pascalabc.net

//версия 3.3, сборка 1634 (14.02.2018)

begin

  var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]);

  var n : = readinteger('n-> ');

  for var i : = 4 downto 0 do

  begin

    k[i] : = n div t[i]; n : = n mod t[i];

  end;  

  if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end;

  if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then 

  begin

    k[0] : = 0; k[1] : = 0; inc(k[2]);  

  end;

  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then 

  begin

    k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]);

  end;

  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then 

  begin

    k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]);  

  end;

 

  for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);

end.

пример(1):

n-> 37

1 билет(ов)- 0 штук(а)

5 билет(ов)- 0 штук(а)

10 билет(ов)- 0 штук(а)

20 билет(ов)- 0 штук(а)

60 билет(ов)- 1 штук(а)

пример(2):

n-> 35

1 билет(ов)- 0 штук(а)

5 билет(ов)- 1 штук(а)

10 билет(ов)- 1 штук(а)

20 билет(ов)- 1 штук(а)

60 билет(ов)- 0 штук(а)

подробнее - на -

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота