В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Kakady0071
Kakady0071
05.03.2020 18:19 •  Информатика

1.Что нужно использовать для выделения текста? А) мышь, клавиатуру Б) Enter B) Alt Г) Ctrl

2. Как удаляем переносы?

А) Нажимаем два раза левую кнопку мыши В) Ориентация- разрывы- удалить

Б) Можно удалить автоматическую расстановку переносов и любой перенос, вставленный вручную (мягкие переносы и неразрывные дефисы

3. Как создаём таблицу?

А) Меню-таблица-создать Б) разметки страниц-таблицы В) вставка-таблица-вставить таблицу

4. Текстовой редактор-это?

А) прикладное программное обеспечение используемое для создания текстовых документов и для работы с ними

Б) программное обеспечение для создания таблиц В) программное обеспечение для создания базы данных

5. Какие основные функции форматирования текста вы знаете?

А) ввод текста Б) корректировка текста

В) установление значений полей страницы, форматирование абзацев, установка шрифтов

6. Какие основные функции редактирования текста вы знаете?

А) установка межстрочных интервалов в) выделение фрагментов текста.

б) ввод текста, коррекция, удаление, копирование, вставка, перемещение

7. Что нужно сделать чтоб сохранить документ Word?

А) Щелкнуть на левой кнопке мыши и выбрать сохранить В) выйти из редактора и нажать Enter

Б) щелкнуть пиктограмму «сохранить» на панели инструментов

8. Ячейка электронной таблицы определяется:

А) именами столбцов Б) областью пересечения строк и столбцов В) номерами строк

9. К табличным процессорам относиться:

А) Word Б) Excel В) Poent

10. Для создания нового файла в редакторе Word нужно:

А) выбрать команду «открыть» Б) выбрать команду «файл»

В) выполнит команду «создать-файл-общие-обычный- ок

11. К текстовым редакторам относят:

А) Word, блокнот Б) Internet Explorer В) Poent

12. В Word невозможно применить форматирование к?

А) рисунку, колонтитулу Б) номеру страницы В) имени файла

13. Что может содержать колонтитул?

А) название документа Б) любой текст В) дату создания документа

14. Параметры страниц текущего документа создаются при команды меню…

А) Вид Б) файл В)Формат

15. При запуске нового документа Word он создаётся с названием:

А) Новый документ 1 Б) Документ 1 В) Документ

16.Какие программы предназначены для обработки текстовой информации?

А.Paint Б.Word . В.Калькулятор

17.Как называют представление информации изображённой в виде нулей и единиц?

А.двоичное кодирование Б.десятичное кодирование В.компьютерные величины

18.Как выглядит число 116 в двоичном представлении:

А.111100 Б.1100111 В.1110100

19.Что такое файл?

А.программа, хранящаяся на компьютере; Б.минимальная единица измерения количества информации;

В.это информация, хранящаяся в долговременной памяти как единое целое и обозначенная именем

20.Сколько битов составляет 72 байт?

А.72 битов Б.576 битов В.9 битов

21.Отметьте понятие среди следующих словосочетаний:

А.Надо починить компьютер Б.Жесткий диск В.В нашем классе есть отличники

22.Определите вид следующего суждения: «Все собаки лают»

А .Общеутвердительное Б. Частноутвердительное В. Общеотрицательное

23.Переведите двоичное число 11011 в десятичную систему счисления

А.4 Б.31 В.27

24.Расширение txt, rtf, doc имеют:

А.исполняемые файлы Б.графические файлы В.текстовые файлы- это прав. ответ.

25.Выделите общее понятие:

А.Озеро Б.Москва В.Волга​

Показать ответ
Ответ:
maga050508
maga050508
21.03.2023 12:38
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
0,0(0 оценок)
Ответ:
vasyapupkin121212
vasyapupkin121212
13.08.2020 11:18
{неэффективный алгоритм}

const
 k = 100;

type
 maze = array [1..k, 1..k] of integer;
 var
 l : maze;
 n, m: integer;
 i, j: integer;
 c: char;
 t: text;
 w: integer;
 x0, y0: integer;
 x1, y1: integer;

procedure ways(a,b,r:integer);
begin
 if (w = 0) or (r < w) then {нет смысла идти дальше, если текущий путь уже превосходит найденный}
 if (l[a,b] <> -2) then
 if (r < l[a,b]) or (l[a,b] = -1) then {нет смысла идти, если текущая клетка уже была достигнута за меньшее число шагов}
   begin
   l[a,b] := r;
   if (a = x1) and (b = y1) then
     w := r
   else
     begin
     if a <> 1 then ways(a - 1, b, r + 1);
     if b <> 1 then ways(a, b - 1, r + 1);
     if a <> n then ways(a + 1, b, r + 1);
     if b <> m then ways(a, b + 1, r + 1);
     end
   end;
end; 
begin
 assign(t, 'input.txt');
 reset(t);
 w := 0;
 readln(t, n, m);
 readln(t, x0, y0);
 readln(t, x1, y1);
 for i := 1 to n do
   begin
   for j := 1 to m do
     begin
     read(t, c);
     case c of
       '.' : l[i,j] := -1; {будем считать, что если клетка отмечена как -1, то путь к ней еще не найден}
       'X' : l[i,j] := -2; {-2, если клетка непроходима}
       end;
     end;
   readln(t)
   end;
 close(t);
 if (l[x0,y0] <> -2) and (l[x1,y1] <> -2) then
   begin
   l[x0,y0] := 1; {просто трюк, чтобы пройти проверку на (r < l[x0,y0])}
     ways(x0, y0, 0);
   end
 else
  l[x1,y1] := -1;
 writeln(l[x1,y1])
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота