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

задачи
1. Записать высказывания формуле:
«Поскольку я лег поздно спать, я проспал и не пошел на пару».

2. Для того, чтобы получить эту работу, необходимо знать английский или
немецкий язык ш не иметь ШЗ.
3. Известно, что высказывание истинно: «Если ученик не знает логики высказываний,
то он не сможет решить логическую задачу ». Какие из следующих высказываний будут
истинные, а какие ложные? Какие из высказываний будут равносильны данном?
1) Ученик решил логическую задачу. Следовательно, он знает логику высказываний.

ОАиДМ, Лекция 2

10

2) Ученик не знает логики высказываний. Следовательно, он не решит задачу.
3) Ученик знает логику высказываний. Итак, он решит задачу.
4) Ученик не решил задачу. Следовательно, он не знает логики высказываний.
Проверить с таблицы истинности и за счет упрощения
формулы.
= "Ученик знает логику высказываний";
= "Ученик решит задачу".
Заданное выражение можно записать по формуле:​

👇
Ответ:
sakinaxalilova2
sakinaxalilova2
18.07.2020

sex sex sex sex sex sex sex sex sex sex sex sex sexsex sexsex sexsexsexsexsexsexsex

4,7(93 оценок)
Открыть все ответы
Ответ:
bogachevavalery
bogachevavalery
18.07.2020
Const
   N = 6;
   M = 7;
Var
   A:array[1..N,1..M] of integer;
   i,j,k,MM,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
WriteLn('Отсортированный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        MM:=j;
        if i mod 2 = 0 then
           Begin
           For k:= j+1 to M do
               if A[i,MM] > A[i,k] then MM:=k
           End
        else
           For k:= j+1 to M do
               if A[i,MM] < A[i,k] then MM:=k;
        B:=A[i,MM];
        A[i,MM]:=A[i,j];
        A[i,j]:=B;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End
End.

Пример работы программы:

Исходный массив:
  9  -5   6   0  -9   0   9
  3  -9  -4  10  -8  10   3
 -2   1   2   3   3   0  10
-10   1   8  -3  -4  -3   4
 -9  -7  -3  -9   2  -1  -3
  7 -10  10  -3   4  10   0

Отсортированный массив:
  9   9   6   0   0  -5  -9
 -9  -8  -4   3   3  10  10
 10   3   3   2   1   0  -2
-10  -4  -3  -3   1   4   8
  2  -1  -3  -3  -7  -9  -9
-10  -3   0   4   7  10  10
4,6(6 оценок)
Ответ:
atom33
atom33
18.07.2020
Var
   f:byte;
   x:real;
Begin
WriteLn('Выберите тип математической функции:');
WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');
ReadLn(f);
While f <> 0 do
   Begin
   Write('Введите x: ');ReadLn(x);
   Case f of
   1:
     if x < 0 then WriteLn(x,'*(',x,') = ',x*x)
     else WriteLn(x,'*',x,' = ',x*x);
   2:
     if x < 0 then WriteLn(x,'*(',x,')*(',x,') = ',x*x*x)
     else WriteLn(x,'*',x,'*',x,' = ',x*x*x);
   3:
     if x < 0 then WriteLn('√',x,' = ',Sqrt(-x),'i')
     else WriteLn('√',x,' = ',Sqrt(x));
   4:
     if x = 0 then WriteLn('Ошибка: на ноль делить нельзя!')
     else if x < 0 then WriteLn('1/(',x,') = ',1/x)
          else WriteLn('1/',x,' = ',1/x);
   End;
   WriteLn;
   WriteLn('Выберите тип математической функции:');
   WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');
   ReadLn(f);
   End;
End.

Пример работы программы:

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
1
Введите x: -8
-8*(-8) = 64

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
3
Введите x: 14
√14 = 3.74165738677394

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
4
Введите x: 0
Ошибка: на ноль делить нельзя!

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
4
Введите x: 16
1/16 = 0.0625

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