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

Сдать решение задачи C-1-Предприниматель Дмитрий (тест 1) Оставшиеся посылки: 100
Предприниматель Дмитрий (тест 1)
Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответы на них в тестирующую систему.

Предприниматель Дмитрий решил, что хочет заняться выпечкой кренделей. Недавно он получил самый первый и самый важный заказ на выпечку
N
кренделей, на исполнение которого у него есть всего
K
дней.

В самом начале у Дмитрия нет кренделей для заказа. В день сам Дмитрий может выпечь только
A
кренделей. Если он накопит некоторое количество кренделей, он сможет нанять на них знакомых, занимающихся выпечкой — Викторию или Алексея. Виктория согласна Дмитрию, если он даст ей в подарок
B
v
кренделей, а Алексей — если получит в подарок
B
a
кренделей.

Виктория и Алексей следующим образом:

1. Дмитрий дарит знакомому количество кренделей, которое тот просил, и тратит один день на его обучение выпечке кренделей по особой технологии. Таким образом, в этот день Дмитрий потратит уже накопленные крендели на знакомого, и не будет ничего выпекать сам, потому что занят обучением. Дмитрий не может одновременно обучать Викторию и Алексея, если он хочет нанять обоих, ему надо потратить два дня.

2. Со следующего дня после обучения знакомый начинает Дмитрию, выпекая некоторое количество кренделей каждый день. Виктория будет выпекать дополнительно по
C
v
кренделей каждый день, а Алексей по
C
a
кренделей.

Так как вы грамотный бизнес-аналитик, Дмитрий решил попросить вас ему в составлении плана для выполнения заказа.

Вам необходимо написать через пробел последовательность команд для Дмитрия в каждый из
K
дней, в которой каждая команда будет записываться цифрой от 1 до 3 и обозначать следующее:

1 — Дмитрий выпекает крендели;

2 — Дмитрий тратит весь день на обучение Виктории выпечке кренделей и отдает ей
B
v
кренделей. Таким образом, в этот день сам Дмитрий только отдаст
B
v
кренделей, а во все последующие дни Виктория будет выпекать дополнительно
C
v
кренделей;

3 — Дмитрий тратит весь день на обучение Алексея выпечке кренделей и отдаёт ему
B
a
кренделей. Таким образом, в этот день сам Дмитрий только отдаст
B
a
кренделей, а во все последующие дни Алексей будет выпекать дополнительно
C
a
кренделей.

В результате должна получиться последовательность из
K
цифр от 1 до 3, записанная через пробел. Когда Дмитрий закончит выполнять команды, у него должно быть не менее
N
кренделей. Гарантируется, что при правильной стратегии Дмитрий может выполнить заказ.

Примечание
Тест №1:
N
=
12
,
K
=
4
,
A
=
3
,
B
v
=
2
,
C
v
=
2
,
B
a
=
1
,
C
a
=
1
;
Тест №2:
N
=
43
,
K
=
6
,
A
=
7
,
B
v
=
10
,
C
v
=
6
,
B
a
=
8
,
C
a
=
4
;
Тест №3:
N
=
118
,
K
=
10
,
A
=
11
,
B
v
=
43
,
C
v
=
10
,
B
a
=
13
,
C
a
=
5
;
Тест №4:
N
=
420
,
K
=
15
,
A
=
21
,
B
v
=
12
,
C
v
=
9
,
B
a
=
10
,
C
a
=
7

👇
Ответ:
555766
555766
25.01.2023

ответ:c-1: 1 1 1 1

c-2: 1 1 2 1 1 1

c-3: 1 1 1 1 1 2 1 1 1 1

c-4: 1 1 2 1 1 1 1 1 1 1 1 1 3 1 1 1 1

Объяснение:

Вот так как то

4,8(65 оценок)
Ответ:
Вика7473
Вика7473
25.01.2023

С1 - 1 1 1 1

С2 - 1 1 2 1 1 1

С3 - 1 2 1 3 1 1 1 1 1 1

С4 - 1 3 1 1 1 1 1 1 1 1 1 1 1 1 1

4,5(95 оценок)
Открыть все ответы
Ответ:
MBmagic
MBmagic
25.01.2023
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше
4,4(99 оценок)
Ответ:
raku13
raku13
25.01.2023
1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47
4,6(48 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ