М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
NoxchiKent
NoxchiKent
06.08.2021 16:30 •  Информатика

Дано геометричну прогресію 12, 24, 48, 96, ... Написати програму визначення суми перших 11 членів з номерами, що кратні 5. Вивести ряд членів, величину суми та значення всіх доданків.Это делать в Паскале

👇
Открыть все ответы
Ответ:
Yarina0311
Yarina0311
06.08.2021
1. Как называется программа для создания и редактирования текста с расширенными возможностями?
Смотря какие возможности вы считаете расширенными и по сравнению с чем
а) MS WORD;
б) WORD PAD;

2. Из каких основных элементов состоит окно программы текстового редактора MS WORD?
А какая версия программы?
а) строка заголовка и строка меню;
б) панели инструментов;
в) рабочее поле;

3. Какие используют для создания нового документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – СОЗДАТЬ;
в) кнопка на панели инструментов СОЗДАТЬ;

4. Какие используют для открытия документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – ОТКРЫТЬ;
в) кнопка на панели инструментов ОТКРЫТЬ;

5. Какие используют для сохранения документа в текстовом редакторе MS WORD?
б) команда главного меню ФАЙЛ – СОХРАНИТЬ;
в) кнопка на панели инструментов СОХРАНИТЬ;

6. Какие используют для удаления фрагмента текста в текстовом редакторе MS WORD?
а) команда контекстного меню ВЫРЕЗАТЬ;
б) команда главного меню ПРАВКА – ВЫРЕЗАТЬ;
в) нажать кнопку DELETE на клавиатуре;
д) кнопка на панели инструментов ВЫРЕЗАТЬ.

7. Какие используют для копирования фрагмента текста в текстовом редакторе MS WORD?:
а) команда контекстного меню КОПИРОВАТЬ;
б) команда главного меню ПРАВКА – КОПИРОВАТЬ;
в) кнопка на панели инструментов КОПИРОВАТЬ;

8. Какие используют для вставки скопированного фрагмента текста в текстовом редакторе MS WORD?
а) команда контекстного меню ВСТАВИТЬ;
б) команда главного меню ПРАВКА – ВСТАВИТЬ;
в) кнопка на панели инструментов ВСТАВИТЬ;

9. С каких вызвать окно диалога ШРИФТ в текстовом редакторе MS WORD?
а) команда главного меню ФОРМАТ – ШРИФТ;
в) кнопка на панели инструментов;

10. Какие параметры шрифта можно установить в окне ШРИФТ текстового редактора MS WORD?
а) тип; ?
б) размер;
в) цвет;
г) стиль (начертание);

11. Какое начертание текста можно установить в текстовом редакторе MS WORD.
а) жирное;
б) курсивное;
в) подчеркнутое;

12. Какое выравнивание текста можно установить в текстовом редакторе MS WORD.
а) по левому краю;
б) по правому краю;
в) по центру;
г) по ширине страницы;

13. Какая есть ориентация у страницы в текстовом редакторе MS WORD?
в) альбомная;
г) книжная;
4,4(24 оценок)
Ответ:
BaBaika322
BaBaika322
06.08.2021

//PascalABC.NET версия 3.4.2.1991 от 03.03.19

//Если программа не запускается, то обновите версию

const

   handsfree = true;

   nmax = 100;

   random_min = -50;

   random_max = 50;

var

   a: array[1..nmax] of real;

   i, n, count: integer;

procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}

var

   i, j: integer;

   x, y: real;

begin

   i := first;

   j := last;

   x := a[(first + last) div 2];

   repeat

       while (A[i] < x) do inc(i);

       while (x < A[j]) do dec(j);

       if (i <= j) then

       begin

           y := A[i]; a[i] := a[j]; a[j] := y;

           inc(i); dec(j);

       end;

   until (i > j);

   if (first < j) then QuickSort(first, j);

   if (i < last) then QuickSort(i, last);

end;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       n := random(nmax - 5) + 5;

       for i := 1 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       write('n = ');

       readln(n);

       for i := 1 to n do

           readln(a[i]);

   end;

   writeln();

   

   QuickSort(1, n);

   

   {вывод массива}

   writeln('Вывод массива[', n, ']:');

   for i := 1 to n do

       write(a[i], ' ');

   writeln();

   

   {подсчет разных}

   count := 1; {первый элемент точно разный}

   for i := 2 to n do

       if a[i] <> a[i - 1] then

           count := count + 1;

   writeln('Разных элементов = ', count);

end.

4,7(66 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ