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

сделать, если не сложно!


сделать, если не сложно!

Показать ответ
Ответ:
dimasik4325
dimasik4325
03.09.2020 13:17
1. Выпишите все числа, при которых значение данных логическое выражений истинно.
А) (х>12) и не (х>15)
(72>12) & !(72>15)
1 & !1 = 0

(98>12) & !(98>15)
1 & !1 = 0

(67>12) & !(67>15)
1 & !1 = 0

(14>12) & !(14>15)
1 & !0 = 1
Выражение истинно для X=14.

Б) (X оканчивается на 5) и не (х- не двузначное число)
1)72
0 & ! !1 = 0
2)98
0 & ! !1 = 0
3)67
0 & ! !1 = 0
4)14
0 & ! !1 = 0
Выражение ложно для всех чисел

2. При каких значениях логическое выражение ложно (возможно несколько ответов).
Не ( Х – четное число) или (оканчивается на 4)

1)72
! 1 + 0 = 0 + 0 = 0

2)98
! 1 + 0 = 0

3)67
! 0 + 0 = 1 + 0 = 1

4)14
! 1 + 1 = 0 + 1 = 1

Выражение ложно для X = 72 и 98
0,0(0 оценок)
Ответ:
uroolga
uroolga
04.04.2022 12:08
1)uses crt;
2)var a:array[1..20,1..20] of integer;
3)n,m,i,j,mn,mx,jmn,jmx,x,y:integer;
4)begin
5)clrscr;
6)randomize;
7)write('Количество строк n=');
8)readln(n);
9)write('Количество столбцов m=');
10)readln(m);
11)writeln('Исходная матрица:');
12)for i:=1 to n do
13)begin
14) for j:=1 to m do
15)begin
16)a[i,j]:=random(20);
17)write(a[i,j]:4);
18)end;
19)writeln;
20)end;
21)for i:=1 to n do
22)begin
23)mx:=a[i,1];mn:=a[i,1];
24)jmx:=1;jmn:=1;
25)for j:=1 to m do
26)begin
27)if a[i,j]>mx then
28)begin
29)mx:=a[i,j];
30)jmx:=j;
31)end;
32)if a[i,j]<mn then
33)begin
34)mn:=a[i,j];
35)jmn:=j;
36)end;
37)end;
38)x:=a[i,1];
39)a[i,1]:=a[i,jmx];
40)a[i,jmx]:=x;
41)y:=a[i,m];
42)a[i,m]:=a[i,jmn];
43)a[i,jmn]:=y;
44)end;
45)writeln('Результат:');46)
46)for i:=1 to n do
47)begin
48)for j:=1 to m do
49)write(a[i,j]:4);
50)writeln;
51)end;
52)readln
53)end.
Дана матрица в[n,m].найти в каждой строке матрицы максимальный и минимальный элемент и поменять их м
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота