на языке c# си шарп консоль!
Задание - «Цветочная оранжерея». Цветочная оранжерея выращивает различные виды цветов и продает на заказ составленные из них композиции. Каждая композиция имеет свое название и может состоять как из цветов одного вида, так и из цветов разного вида. Заказ обычно выполняется в течение нескольких дней. При выполнении заказа в течение суток дополнительно взимается плата в размере 25 %. При выполнении заказа в течение двух суток дополнительно взимается плата в размере 15 %.
Дирекция оранжереи должна иметь информацию:
1 класс: о цветах: название цветка, сорт, стоимость одного цветка;
2 класс: о композициях: название композиции, название входящего в композицию цветка, сорт, количество единиц;
3 класс: о выполнении заказов: дата принятия заказа, дата выполнения заказа, название композиции, количество единиц, покупатель.
Необходимо: Используя оператор Select, выдать следующую информацию:
• по всем заказам – сумма полученных денег за указанный период;
• по композиции, пользующейся максимальным с все сведения о ней;
• по всем заказам – сведения о количестве выполненных заказов по по всем заказам – сведения о количестве использованных цветов по видам и сортам за указанный период;
• по всем заказам – сведения о количестве проданных композиций и сумме полученных денег по видам композиций.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

StehnkaSova

22.02.2021 01:28

Придумать полную и невероятную приключений своего пропуска уроков и оформить ее в виде объяснительной записки директору! умоляю : )...

KatyushaLis77

23.01.2021 15:40

Дана строка,подсчитать количество вхождений слова кот в данную строку в pascalABC.NET...

slava02555

28.03.2023 07:04

Записать на языке Паскаль алгоритм решения задачи о графике тренировок спортсмена. Задача: Спортсмен приступает к тренировкам по следующему графику: в первый день он должен...

Monimix

16.04.2021 11:10

Дан текстовый документ, в текстовом документе 3 страницы, в каждой странице есть текст по 50 символов, включая пробелы и знаки препинания. Посчитайте объем текстового документа...

ep0977912721

01.05.2022 23:04

гиперссылка это Это просто машина не понимающая слова которые отображаются на экране и не мыслящие самостоятельноявляется частью природы гипертекстового документа которые...

Олисочка

24.09.2020 09:37

Переведите данное число из 10-чной системы счисления в 2-чную систему счисления: 9010=?2a) 1010101: 6) 1110101; B) 1011010;1110101; B) 1011010; r) 1111010....

ПолинаКим13

30.09.2021 06:58

Найдите правильное назначения кнопки указанной на картинке...

Jeka990

30.10.2021 15:16

Я уверен, что вы справитесь!...

stqz

07.06.2022 22:03

Выполни проект на одну из предложенных тем. Тема рефератаЗначениегиперссылокЯзыкпрограммированияPythonНаправление исследованияИспользование гиперссылок в созданииэлектронных...

dongrigoriew20

31.01.2020 17:11

Укажите правильную последовательность передачи электрической энергии от производителя к потребителю. Запишите порядковый номер (1-6) в соответствующем окошке. 1.Понижающий...

Ответ:

SoFiA5454555

25.04.2020 01:53

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;

После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.

0,0(0 оценок)

Ответ:

dashadgankozde8z

31.01.2021 20:41

Var a1,a2,a3,a4,a5,max: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5);
  begin
if (a1>a2) then max:= a1else max:=a2;
if (a2>a3) then max:=a2else max:=a3;
if (a3>a4) then max:=a3else max:=a4;
if (a4>a5) then max:=a4else max:=a5;
  end;
writeln (max);
end.
Аналогично с минимальным числом.
var a1,a2,a3,a4,a5,min: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5);
  begin
if (a1<a2) then min:= a1else min:=a2;
if (a2<a3) then min:=a2else min:=a3;
if (a3<a4) then min:=a3else min:=a4;
if (a4<a5) then min:=a4else min:=a5;
  end;
writeln (min);
end.
Можно так же решить с массива, если нужно пишите.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку