Отметьте те объекты, которые могут быть и на вашем рабочем столе, и на компьютерном рабочем столе: настольная лампа папка с документами учебник кнопка пуск календарь блокнот корзина часы линейка и ножницы клей авторучка

Папка с документами учебник календарь блокнот корзина часы

//написать программу, которая упорядочивает цифры в заданном пятизначном числе по убыванию. var a: array[1..5] of integer; x,i,j: integer; begin   writeln('введите пятизначное число');   readln (x);   while  (x< 9999) or (x> 99999) do  // проверка числа на "пятизначность"       begin           writeln ('вы ввели не пятизначное число попробуйте еще раз');           readln (x);       end;   for i: =1 to 5 do //раскладываем число на отдельные цифры       begin           a[i]: =x mod 10;           x: =x div 10;       end;       for j: =1 to 4 do //сортировка пузырьком           begin               for i: =1 to 4-j do                   begin                       if a[i]> a[i+1] then                           begin                               x: =a[i];                               a[i]: =a[i+1];                               a[i+1]: =x;                           end;                   end;           end;     for j: =1 to 5 do write (a[j]); //вывод результата end.

программа находит совершенные числа в диапазоне от 1 до 10000 (совершенное число - натуральное число, равное сумме всех своих собственных делителей)

program z3; ' - заголовок программы  var ' - служебное слово, начинающее раздел описания переменных  i,j,s: word; ' - описание переменных i,j,s как числа от 0 до 65535begin ' - служебное слово, начинающее описание операторов программы  for i : = 1 to 10000 do begin ' - организация цикла по i от 1 до 10000  s : = 0; ' - обнуление переменной s  for j: =1 to i div 2 do ' - организация цикла по j от 1 до целая_часть(i: 2)  if i mod j = 0 then ' - если i делится на j без остатка,  s : = s+j; ' - то переменную s увеличиваем на значение переменной  j  if s = i then ' - если значения переменных s и i   write(i,' '); ' - то распечатываем значение переменной i  end; ' - конец цикла по i  writeln; ' - пустой оператор печати, используется для организации печати с новой строки  readln; ' - пустой оператор чтения, используется для организации задержки экрана  end. ' - служебное слово, заканчивающее описание операторов программы