Информатика учебник 6 класс босова Презентация "ЧАСЫ". (стр.197-198 учебника Сделать, чтобы большая стрелка перепрыгивала на каждую цифру

Презентация в стандартной программе от Windows. Я буду использовать программу Power Point 2010.

Объяснение:

1) Выбираешь фигуру.

2)Заходишь в раздел <Анимация>

3)Нажимаешь на <Добавить анимацию>

4)Пути перемещения -> повороты. Или пункт <Вращения>.

5)Ну и калибруешь фигуру так, как тебе нужно.

Задание 1. Для ка­ко­го из приведённых зна­че­ний числа X ложно высказывание: НЕ (X < 6) ИЛИ (X < 5)?

ИЛИ ложно тогда, когда обе части выражения ложны.

В задаче просится найти вариант ответа, при котором данное высказывание будет ложным.

НЕ (X < 6) ⇒ X < 6

(X < 5) ⇒ Х ≥ 5

Итог

6 > Х ≥ 5

ответ - 3) 5

Задание 2. Для ка­ко­го из приведённых зна­че­ний числа X ис­тин­но высказывание: НЕ (X < 6) И (X < 7)?

И истинно, когда обе части истинны

НЕ (X < 6) ⇒ Х ≥ 6

(X < 7) ⇒ X < 7

Итог

7 > Х ≥ 6

ответ - 2) 6

Задание 3. Для ка­ко­го из приведённых зна­че­ний числа X ис­тин­но высказывание: (X < 8) И НЕ (X < 7)?

И истинно, когда обе части истинны

(X < 8) ⇒ X < 8

НЕ (X < 7) ⇒ Х ≥ 7

Итог

8 > Х ≥ 7

ответ - 3) 7

Задание 4. Для ка­ко­го из приведённых чисел ис­тин­но высказывание: НЕ (число < 100) И НЕ (число чётное)?

И истинно, когда обе части истинны

НЕ (число < 100) ⇒ число ≥ 100

НЕ (число чётное) ⇒ число нечётное

ответ - 1) 123

Задание 5. Для ка­ко­го из приведённых чисел ложно высказывание: НЕ (число < 10) ИЛИ НЕ (число чётное)?

ИЛИ ложно тогда, когда обе части выражения ложны.

В задаче просится найти вариант ответа, при котором данное высказывание будет ложным.

НЕ (число < 10) ⇒ число < 10

НЕ (число чётное) ⇒ число чётное

ответ - 4) 8

Задание 6. Для ка­ко­го из приведённых чисел ис­тин­но высказывание:  НЕ (Первая цифра чётная) И (Последняя цифра нечётная)?

И истинно, когда обе части истинны

НЕ (Первая цифра чётная) ⇒ первая цифра нечётная

(Последняя цифра нечётная) ⇒ Последняя цифра нечётная

ответ - 3) 3561

Задание 7. Для ка­ко­го из приведённых имён ис­тин­но высказывание: НЕ (Первая буква согласная) И НЕ (Последняя буква гласная)?

И истинно, когда обе части истинны

НЕ (Первая буква согласная) ⇒ первая буква гласная

НЕ (Последняя буква гласная) ⇒ последняя буква согласная

ответ - 1) Юлиан

Задание 8. Для ка­ко­го из приведённых имён ложно высказывание:  НЕ ((Первая буква согласная) И (Последняя буква гласная))?

И ложно, когда обе части ложны, или одна из частей ложна

НЕ ((Первая буква согласная) И (Последняя буква гласная)) ⇒

(Первая буква согласная) И (Последняя буква гласная)

ответ - 1) Дарья

Задание 9. Для ка­ко­го из дан­ных слов ис­тин­но высказывание:  НЕ (оканчивается на мяг­кий знак) И (количество букв чётное)?

И истинно, когда обе части истинны

НЕ (оканчивается на мяг­кий знак) ⇒ оканчивается не на мягкий знак

(количество букв чётное) ⇒ количество букв чётное

ответ - 2) август

Задание 10. Для ка­ко­го из дан­ных слов ис­тин­но высказывание:  НЕ (есть шипящие) И (оканчивается на гласную)?

И истинно, когда обе части истинны

НЕ (есть шипящие) ⇒ нет шипящих

(оканчивается на гласную) ⇒ оканчивается на гласную

ответ - 3) забота

Задание 11. Для ка­ко­го из дан­ных слов ис­тин­но высказывание:  (ударение на пер­вый слог) И НЕ (количество букв чётное)?

И истинно, когда обе части истинны

(ударение на пер­вый слог) ⇒ ударение на пер­вый слог

НЕ (количество букв чётное) ⇒ кол-во букв нечетное

ответ - 3) кошка

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  // В целях упрощения логики программы варианты
  // выбора кнопок 0 и * вместе не рассматриваются
  //
  Writeln('Опускайте монеты достоинством 1,2,5 руб.');
  Writeln('Кнопка "0" завершение приема, кнопка "*" - возврат монет');
  var s:=ReadlnString;
  var p:=Pos('*',s);
  if p>0 then begin
    var sr:=s[:p].ToIntegers;
    if sr.Sum>0 then Writeln('Возврат монет: ',s[:p])
    else Writeln('Нечего возвращать!')
    end
  else begin
    p:=Pos('0',s);
    if p>0 then begin
      s:=s[:p];
      var a:=s.ToIntegers;
      if a.Length>0 then begin
        var acc:=a.Where(t->t in [1,2,5]);
        var rej:=a.Where(t->not(t in [1,2,5]));
        if rej.Count>0 then Writeln('Не приняты: ',rej);
        var sum:=acc.Sum;
        if sum mod 5<>0 then begin
          Writeln('Введена неверная сумма');
          Write('Принятые монеты возвращены: ');
          acc.OrderBy(t->t).Println
          end
        else
          if sum>0 then
            Writeln('Получите билеты в количестве ',sum div 5,' шт.')
        end
      else
        Writeln('Вы не опустили ни одной монеты')
      end
    else
      Writeln('Вы не выбрали кнопку "0" или "*"')
  end
end.

Примеры
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 0
Не приняты: [3,6,3,3,4,3,6]
Получите билеты в количестве 4 шт.

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 *
Возврат монет: 3 6 3 1 3 5 2 5 2 4 2 3 6 2 1

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 4 2 3 6 2 1 0
Не приняты: [3,6,3,3,4,3,6]
Введена неверная сумма
Принятые монеты возвращены: 1 1 2 2 2 5

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 7 3 4 3 8 6 0
Не приняты: [3,6,3,7,3,4,3,8,6]

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
0
Вы не опустили ни одной монеты