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

1. Приведите по одному примеру истинного и ложного высказываний. 2. Вычислите: ((0 ˄ 1) ˅ 1) ˄ (1 ˅ A).

3. Составьте таблицу истинности для следующей логической функции:

F=(¬X  ˅ Y) ˄ X  ˄ ¬ Y.
надо​

👇
Открыть все ответы
Ответ:
polinabaryshni
polinabaryshni
17.11.2020
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

egin
  var s := ReadString;
  var digit, letter: integer;
  for var i := 1 to s.length do
    if (s[i] >= '0') and (s[i] <= '9') then
      inc(digit)
    else
    if (s[i] ='ё')or(s[i]='Ё')or(s[i] >='а')and(s[i]<='я')or(s[i] >='А')and(s[i]<='Я')or(s[i] >='a')and(s[i]<='z')or(s[i] >='A')and(s[i]<='Z')then
    inc(letter);
   
  if digit < letter then
    writeln('Букв больше, чем цифр на ', letter - digit)
  else
  if digit > (s.length - digit) then
    writeln('Цифр больше, чем букв на ', digit - letter)
 else
    Writeln('Цифр столько же, сколько и букв');
 
end.
4,6(90 оценок)
Ответ:
lenavinnik80
lenavinnik80
17.11.2020
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  a:=Transpose(a);
  Writeln('*** Транспонированная матрица [',n,',',m,'] ***');
  a.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 5 8
*** Исходная матрица [5,8] ***
  17  85 -69  45 -56
  46  83 -82  96   6
  21 -32 -16  -9  78
 -35  45 -98  74  32
 -46 -19 -82  85  76
  53  26  14 -46  26
 -51 -17 -41 -41   2
  19 -35 -34  83 -87

*** Транспонированная матрица [8,5] ***
  17  46  21 -35 -46  53 -51  19
  85  83 -32  45 -19  26 -17 -35
 -69 -82 -16 -98 -82  14 -41 -34
  45  96  -9  74  85 -46 -41  83
 -56   6  78  32  76  26   2 -87
4,6(6 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ