Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................
<span>Система, включающая в себя другие. Это более сложная система, имеющая свое предназначение, структуру, законы, ресурсы и сознание, в которую заданная система входит как подсистема </span>
<span>В соответствии с принципом иерархичности любая система одновременно является надсистемой для своих элементов и подсистемой для своей надсистемы. </span>
Подсистема <span>- это набор объектов и подсистем, обеспечивающих некоторую функциональность, и взаимодействующих между собой в соответствии с их интерфейсами. Интерфейс подсистемы представляет собой подмножество объединения интерфейсов всех объектов и подсистем, составляющих эту подсистему. В состав подсистемы может входить один, или более взаимозависимых объектов и/или подсистем.</span>
var
i, max:integer;
c: array[1..10] of integer;
begin
for i:=1 to 10 do
read(c[i]);
max:=c[1];
for i:=2 to 10 do
if (c[i]>max) then max:=c[i];
write(max);
end.
Var
a,b,d:integer;
begin
Read(a,b);
d:=a mod 10 - b mod 10;
if d<0 then Writeln('Разряд единиц меньше у 1-го числа')
else
if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
else Writeln('Разряды единиц у обоих чисел равны')
end.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333