оба ответа подходят в русском языке
но логичнее нет
просто у нет в русском 2 функции: согласие с отрицанием и отрицание отрицания
ответ Нет, на рисунке белая скатерть
(я выразил отрицание к вопросу)
словом нет можно выразить и отрицание и согласие
да здесь вообще не подходит его не рассматривает
у нет 2 варианта либо согласие с отрицанием - Нет, скатерть не белая. Либо отрицание вопроса - нет, белая.
при этом первый вариант не верный так как скатерть белая, то есть единственно верный это - Нет, скатерть белая (отрицание вопроса)
Во - первых рассмотрим простые высказывания:
М - Монитор неисправен
В - Видеокарта неисправна
О - Оперативная память неисправна
Во вторых: Запишем на языке алгебры логики возможные предположения: (M v B) --> O и M --> B
Пусть F(М,В,О) = (M v B) --> O и M --> B
составляем таблицу истинности:
М В О M --> B
0 0 0 1
1 0 1 1
0 0 0 1
1 1 1 0
0 0 0 1
0 1 1 0
1 1 0 0
1 1 1 1
1 0 0 0
1 0 0 0
0 1 1 1
1 1 0 1
0 1 1 0
1 1 1 1
0 0 1 0
1 1 0 1
1 1 0 1
1 0 1 1
Анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда М – истинно, т.е. вероятнее всего неисправен именно монитор.
Program zd4;
uses CRT;
type mas=array[1..20,1..20] of real;
var A:mas; g,b,i,j,n,m,nom1,nom2:integer; max:real;
Begin
clrscr;
write ('Введите размер массива: ');
readln (n,m);
write ('Введите диапазон чисел в массиве: ');
readln (g,b);
Randomize;
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(b-g)+g;
write (A[i,j]:5:0,' ');
End;
writeln;
End;
nom1:=1;
nom2:=1;
max:=a[1,1];
For i:=1 to n do
Begin
For j:=1 to m do
Begin
If a[i,j]>max then
Begin
max:=A[i,j];
nom1:=j;
nom2:=i;
End;
End;
End;
writeln ('Максимальный элемент массива= ',max:5:0,' ,его координаты ','[',nom1,',',nom2,']');
readln;
End.
Так?