ответьте на вопросы ! 1.укажите лишнее среди объектов рабочего стола. а.панель инструментов. в.значки объектов. c.панель . d. кнопка пуск. 2.область экрана, где можно увидеть часы, называется: а.рабочий стол. в.панель . с.главное меню. d.значки объектов. 3.для выключения компьютера достаточно: а.выбрать соответствующую команду в главном меню. в.нажать кнопку выключения на системном блоке компьютера. с.воспользоваться значком мой компьютер. d.использовать языковую панель. 4.для вызова главного меню надо: а.открыть мой компьютер. в.нажать кнопку пуск. с.открыть панель . d.открыть корзину. 5.команда документы главного меню: а.открываем библеотеку музыка. в.позволяем провести поиск файлов. с.открываем библеотеку изображения. d.открываем библеотеку документы. 6.команда изображения главного меню: а.открываем библеотеку музыка. в.открываем библеотеку документы. с.открываем библеотеку изображения. d.позволяет провести поиск файлов. 7.команда панель главного меню: а.настраивает параметры компьютера. в.позволяем провести поиск файлов. с.открываем библеотеку изображения. d.выводит окно для настройки принтера.

С,А,А,В,Д,С,А.
Все)))

/// PascalABC.Net 3.4.2, 2053(11.05.19)

var

   a, n: longint;

   text: textfile;

function myMod(num, power, divider: longint): longint;

var

   rest, i: longint;

begin

   rest:=1;

   divider := abs(divider);

   for i := 1 to power do

   begin

       rest := rest * num;

       rest := rest mod divider;

   end;

   

   myMod := rest;

end;

begin

   assign(text, 'input.txt');

   

   {rewrite(text);

   writeln(text, 109);

   close(text);}

   

   reset(text);

   read(text, a);

   writeln('a=', a);

   close(text);

   

   n := 1;

   repeat

       n := n + 1;

   until MyMod(n, n, a) = 0;

   

   assign(text, 'output.txt');

   rewrite(text);

   writeln(text, n);

   close(text);

   

   {reset(text);

   read(text, n);

   writeln('n=', n);

   close(text);}

end.

var

 a: array [1..10] of integer;  //Массив из 10 целых элементов

 max, i: integer;  //max - максимальный элемент

 

begin

 max:= 0;  {Присваиваем max минимальное значение, которое он может принять}

 write('Исходный массив:  ');  {Заполняем исходный массив, печатаем его и находим максимальный элемент}

 for i:= 1 to 10 do 

 begin

   a[i]:= random(10);

   write(a[i], '  ');

   if (i mod 2 = 0) and (a[i] > max) then

     max:= a[i];

 end;

 writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);  //Печатаем исходный элемент

end.

Если все правильно, отметь решение как лучшее)

Нажми, чтобы рассказать другим, насколько ответ полезен

Подробнее - на -