var
a: string;
b: array[1..9]of integer;
sort: boolean;
max, k: integer;
begin
Readln(a);
for var i := 1 to Length(a) do
b[i] := strtoint(a[i]);
sort := false;
while sort = false do
begin
sort := true;
k += 1;
for var i := 1 to Length(a)-1 do
begin
if a[i] < a[i+1] then
begin
sort := false;
var value2 := a[i];
a[i] := a[i+1];
a[i+1] := value2;
end;
end;
end;
write(a[1]);
end.
Программа написана на PascalABC.net
на free pascal или turbo pascal она может не работать
графы в информатике являются способом определения отношений в совокупности элементов. это основные объекты изучения теории графов.
базовые определения
из чего состоит граф в информатике? он включает множество объектов, называемых вершинами или узлами, некоторые пары которых связаны т. н. ребрами. например, граф на рисунке (а) состоит из четырех узлов, обозначенных а, в, с, и d, из которых b соединен с каждой из трех других вершин ребрами, а c и d также соединены. два узла являются соседними, если они соединены ребром. на рисунке показан типичный способ того, как строить графы по информатике. круги представляют вершины, а линии, соединяющие каждую их пару, являются ребрами.
какой граф называется неориентированным в информатике? у него отношения между двумя концами ребра являются симметричными. ребро просто соединяет их друг с другом. во многих случаях, однако, необходимо выразить асимметричные отношения – например, то, что a указывает на b, но не наоборот. этой цели служит определение графа в информатике, по-прежнему состоящего из набора узлов вместе с набором ориентированных ребер. каждое ориентированное ребро представляет собой связь между вершинами, направление которой имеет значение. направленные графы изображают так, как показано на рисунке (b), ребра их представлены стрелками. когда требуется подчеркнуть, что граф ненаправленный, его называют неориентированным.
ответ а), так как цикл повторяется 6 раз.