porotikova1004
?>

2. Вните проптупенные слова в предложения -Компьютер безбесполезный хлам. групажелеза, Программирование деятельность человека попрограммы.110 предназначено для выполнения конкретныхЗадач нользователя.Наиболее дружественно полѣ ователюПО.​

Информатика

Ответы

agaloan8

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 она может не работать

bondarenkoss

Под понятием «бумажный документ» мы подразумеваем информацию, зафиксированную на бумажном носителе и обладающую определенными реквизитами, такими как, например, дата, подпись. К особенностям бумажного документа можно отнести его привязку к материальному носителю.

Электронный же документ не осязаем и не имеет привычного для нас набора осязаемых реквизитов. Нет возможности потрогать, визуально его ощутить. Помимо этого электронный документ не привязан к носителю. Он может существовать на многих носителях и являться одним и тем же документом.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

2. Вните проптупенные слова в предложения -Компьютер безбесполезный хлам. групажелеза, Программирование деятельность человека попрограммы.110 предназначено для выполнения конкретныхЗадач нользователя.Наиболее дружественно полѣ ователюПО.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

memmedovallahverdi0239
ilyatamurov
Хохлов
itartdesignprof
klodialeit36
phmad7
Bulanova
zapros
yfetyukov2
studiojanara
qwert28027170
lovel24
Emasterova77
галина
platan3698952