zoziev2014
13.10.2020 09:43

Фірма випускає стільці двох видів: А і Б Для випуску одного стільця виду А потрібно 2 м дощок, 0,5 м2 тканини і 2 людино-години. Для випуску одного стільця виду Б — 4 м дощок, 0,25 м2 тканини і 2,5 людино-години За 1 тиждень фірма може використати не більше ніж 440 м дощок, 65 м2 тканиниі 329 людино-годин. Фірма продає один стілець виду А за 80 грн, а один стілець виду Б — за 120 грн. Скільки стільців кожного виду зможе випустити за тиждень фірма, щоб вкластися в допустимі ресурси й отримати найбільший прибуток? Розв’яжіть задачу, використавши табличний процесор. Збережіть електронну книгу у вашій папці у файлі з іменем Фірма випускає стільці двох видів: А і Б Для випуску одного стільця виду А потрібно 2 м дощок, 0,5 м2 тканини і 2 людино-години. Для випуску одного стільця виду Б — 4 м дощок, 0,25 м2 тканини і 2,5 людино-години За 1 тиждень фірма може використати не більше ніж 440 м дощок, 65 м2 тканиниі 329 людино-годин. Фірма продає один стілець виду А за 80 грн, а один стілець виду Б — за 120 грн. Скільки стільців кожного виду зможе випустити за тиждень фірма, щоб вкластися в допустимі ресурси й отримати найбільший прибуток? Розв’яжіть задачу, використавши табличний процесор. Збережіть електронну книгу у вашій папці у файлі з іменем с объявлением.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
UlianaModerator
23.06.2020 01:52

uses crt;

const Max=100;

var Matrix:array[1..Max,1..Max] of integer;

   i,j,Sum1,Sum2,m:integer;

begin

 clrscr;

 randomize;

 repeat

   writeln('Введите размерность квадратной матрицы ');

   readln(m);

 until m in [1..Max];

 for i:=1 to m do

   for j:=1 to m do

     Matrix[i,j]:=random(25);//при необходимости замените на ручной ввод

 for i:=1 to m do

   begin

     for j:=1 to m do

       write(Matrix[i,j]:4);

       writeln;

   end;

 Sum1:=0; Sum2:=0;

 for i:=1 to m do

   begin

     Sum1:=Sum1+Matrix[i,i];

     Sum2:=Sum2+Matrix[m-i+1,i];

   end;

 writeln('Сумма элементов главной диагонали:',Sum1);

 writeln('Сумма элементов побочной диагонали:',Sum2);

 readln;

end.

Объяснение:

0,0(0 оценок)
Ответ:
ZnaniyaSosut
06.04.2023 10:45
       На доске по строчечке 
Разместились кнопочки 
Догадайтесь мальчики 
Как здесь тыкать пальчиком? (Клавиатура) 

Нет, она – не пианино, 
только клавиш в ней – не счесть! 
Алфавита там картина, 
знаки, цифры тоже есть. 
Очень тонкая натура. 
Имя ей ...(Клавиатура). 

То-то радость, то-то смех 
На бумаге, без огрех, 
Из какой коробки лезет 
Текст на удивленье всех? 
(Принтер) 

По ковру зверек бежит, 
То замрет, то закружит, 
Коврика не покидает, 
Что за зверь, кто угадает? 
(Мышка) 

Не зверушка, не летаешь, 
а по коврику скользишь 
и курсором управляешь. 
Ты – компьютерная...(Мышь). 

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