Var a: array[1..7, 1..3] of integer; s, i, j: integer;begin for i:=1 to 7 do for j:=1 to 3 do readln (a[i, j]); for i:=1 to 7 do begin s:=0; for j:=1 to 3 do s:=s+a[i,j]; writeln('Средняя температура для дня №', i, ' равна ', s/3); end;end.
Ответ:
1, 2, 3, 4
Объяснение:
Введем обозначения:
a = X > 0, b = X > 4
Тогда выражение будет иметь вид (a + b) → b и нужно найти условия, когда оно ложно. Вместо этого, мы будем искать, когда отрицание этого условия истинно, т.е. истинность ¬( (a + b) → b)
Для начала избавимся от импликации
¬( ¬(a + b) + b)
А теперь примерим к внешнему отрицанию закон де-Моргана
(a + b) · ¬b
Раскрываем скобки
a · ¬b + b · ¬b
a · ¬b + 0
a · ¬b
Делаем обратную замену
( X > 0) · ¬(X > 4)
( X > 0) · (X ≤ 4)
Переведем это на более понятный язык:
X > 0 И X ≤ 4, или
0 < X ≤ 4
Из целых чисел сюда подойдут 1, 2, 3, 4.
var
i, n : byte;
begin
repeat
write('введите n: ');
readln(n)
until n in [1..9];
writeln('таблица умножения');
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
writeln('таблица сложения');
for i := 1 to 9 do
writeln(n, ' + ', i, ' = ', n + i);
readln
end.
Ответ:
В ячейках таблицы
В А1 пишем -50
В А2 пишем -45
Выделяем А1 и А2 и растягиваетм вниз за правый нижний угол до ячейки, в которой окажется 50
В В1 пишем
=ЕСЛИ(И(ЕСЛИ(A1>-10;1;0);ЕСЛИ(A1<40;1;0));A1+2;COS(A1)+A1)
Выделяем В1 и также за нижний правый угол растягиваем вниз.
В столбце В получаем значения функции
Объяснение:
Внимательнее
Все названия ячеек на латинском
Двоичное число - <span>число состоящее из "0" и "1";
Двоичная цифра -
Двоичное кодирование - </span><span>Кодирование, основанное на двоичной системе: 0 и 1 .</span>