a.append(k)
l = 0
for i in range(len(a)):
if a[i]>=3:
l = l+1
a[i] = a[i]-3
if l == three:
break
print(l,"тройки")
print(a)
j = 0
for i in range(len(a)):
if a[i]>=2:
j = j+1
a[i] = a[i]-2
if j == two:
break
print(j,"двойки")
print(a)
m = 0
for i in range(len(a)):
if a[i]>=1:
m = m+1
a[i] = a[i] - 1
if m == one:
break
print(m,"одиночки")
print(a)
if l>=three and j>=two and m>=one:
print("YES")
else:
print("NO")
Объяснение:
надеюсь в коде разберешься )
написано в питоне
Под системой понимают любой объект, который одновременно рассматривается и как единое целое, и как объединенная в интересах достижения поставленных целей совокупность разнородных элементов. Системы значительно отличаются между собой как по составу, так и по главным целям. Приведем несколько систем, состоящих из разных элементов и направленных на реализацию разных целей. Система Элементы системы Главная цель системы Фирма Люди, оборудование, материалы, здания и др. Производство товаров Компьютер Электронные и электромеханические элементы, линии связи и др. Обработка данных Телекоммуникационная система Компьютеры, модемы, кабели, сетевое программное обеспечение и др. Передача информации Информационная система Компьютеры, компьютерные сети, люди, информационное и программное обеспечение Производство профессиональной информации В информатике понятие «система» широко распространено и имеет множество смысловых значений. Чаще всего оно используется применительно к набору технических средств и программ. Системой может называться аппаратная часть компьютера. Системой может также считаться множество программ для решения конкретных прикладных задач, дополненных процедурами ведения документации и управления расчетами. Добавление к понятию «система» слова «информационная» отражает цель ее создания и функционирования. Информационные системы обеспечивают сбор, хранение, обработку, поиск, выдачу информации, необходимой в процессе принятия решений задач из любой области. Они анализировать проблемы и создавать новые продукты.
Var
ma:array[1..n,1..n] of integer;
ar:array[1..n*n] of integer;
i,j,k:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(5);
write(ma[i,j]:4);
end;
writeln;
end;
writeln('Result:');
for i:=1 to n-1 do
for j:=1 to n-i do
begin
inc(k);
ar[k]:=ma[i,j];
end;
for i:=1 to k do
write(ar[i]:4);
end.