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

Тест по информатике
1.Какую логическую функцию (операцию) определяет правило:
«… нескольких высказываний истинно(а) тогда и только тогда, когда истинно каждое из них»
1) логическое сложение
2) логическое умножение
3) логическое отрицание
4) эквиваленция

2.Какая логическая операция соответствует высказыванию «Если река глубокая, то ее нельзя перейти вброд»
1) эквиваленция
2) импликация
3) конъюнкция
4) дизъюнкция

3.Какое из приведенных ниже логических выражений эквивалентно A
1) A ^ ¬B ^ A
2) A ^ ¬A v ¬A
3) A ^ ¬A v B
4) A ^ ¬B v A

4. Cимволом F обозначено одно из указанных ниже логических выражений от трех аргументов X, Y, Z.
Дан фрагмент таблицы истинности выражения F
Какое выражение соответствует F?

1) X или Y или Z
2) неX или неY или неZ
3) X и неY и Z
4) неX и неY и неZ
файл с фото прикреплен

5.Какая логическая функция соответствует приведенной логической
схеме?
1) (А и В) или В
2) (не А или не В) и В
3) (не А и не В) или В
4) не А и не В и В

Показать ответ
Ответ:
Алия0051
Алия0051
03.06.2020 14:19
Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.
0,0(0 оценок)
Ответ:
BlasterGloGang
BlasterGloGang
30.01.2022 02:01

program expression;

var

 x, y: real;

begin

 read(x);

 y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6;

 write(y);

end.

Объяснение:

program expression;  // Название программы

var

 x, y: real;  // Две переменные являются вещественными (требуется для power)

begin  // Начало программы

 read(x);  // Вводим число с клавиатуры

 y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6;  // Само выражение

power(число, которое нужно возвести в степень | сама степень)

power(x, 4)

x - число

4 - степень

 write(y);  // Выводим ответ

end. // Начало программы

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота