У банку працоють 15 співробітників, три з яких не мають потрібної кваліфікації Скільки можна скласти списків: а) з 8 співробітників; б) з 6 кваліфікованих співробітників
Ответы на вопрос:
procedure max(a,b,c:integer; var q:integer);
begin
if a>b then if b>c then q:=b else q:=c;
if a<b then if a<c then q:=c else q:=a;
end;
...
var a1,b1,c1, a2,b2,c2, a3,b3,c3:integer;
begin
... Вводим
max(a1,b1,c1,a1);
max(a2,b2,c2,a2);
max(a3,b3,c3,a3);
max(a1,a2,a3,a1);
... Выводим а1
end.
Объяснение:
var a1,b1,c1,a2,b2,c2,a3,b3,c3:integer;
max1,max2,max3,min1,min2,min3:integer;
max,min,rar:integer;
procedure pr(a,b,c:integer;var z,w:integer);
begin
if (a>=b) and (a>=c)then z:=a;
if (a<b) and (a<c) then w:=a;
if (b>=a) and (b>=c)then z:=b;
if (b<a) and (b<c) then w:=b;
if (c>=a) and (c>=b)then z:=c;
if (c<a) and (c<b) then w:=c;
end;
begin
read(a1,b1,c1);
pr(a1,b1,c1,max1,min1);
read(a2,b2,c2);
pr(a2,b2,c2,max2,min2);
read(a3,b3,c3);
pr(a3,b3,c3,max3,min3);
pr(max1,max2,max3,max,rar);
pr(min1,min2,min3,rar,min);
write(max,' ',min);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Алгебра
-
Cos t = -√(3)/2 с объяснениями если можно...
ываывс13.02.2020 20:48 -
Вычислить производную сложной показательной функции y=sinx^cosx ...
karpova7922.01.2020 06:45 -
Найди значение выражения 1/3 а во 2 степени bc 3 степени × на 1/4 c, А...
yulyaanisimova224.06.2022 13:58 -
Докажите, что отношение ρ ⇔ a^2 + b^2 = c^2 + d^2 есть отношение эквивалентности...
androsova201630.08.2022 05:26 -
1. Знайдіть значення виразу: 1 a−2 a2+4 , якщо a = −1. 2. Скоротіть дріб:...
lemarakurtazhiv24.03.2020 08:37 -
Определите значение параметра b, при котором заданное уравнение не имеет...
kate666814.03.2020 03:38 -
решить только первую задачу ( а лучше и 2 номер тоже) ! Фото прикреплено!...
kirovaalex1601.10.2022 21:06 -
Y=1/3(x+2)^2-1 ИЗОБРАЗИТЕ НА ГРАФИКЕ ФУНКЦИИ...
Антонио78917619.08.2021 03:00 -
Отличники с контрольной работой...
vckdkskk09.06.2020 19:23 -
Номер 298 а) 7/18+1/9 б)1/2-3/8 с)1/21-9/14 д)5/42-8/21+1/41 е)13/24:26/33+5/12...
dolloc24.10.2022 07:16
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.