Ри школьника (Миша, Коля и Сергей), остававшиеся в классе на перемене, были вызваны к директору по поводу разбитого в это время окна в кабинете. На вопрос директора о том, кто это сделал, мальчики ответили следующее:Миша: "Я не бил окно, и Коля тоже".Коля: "Миша не разбивал. Это Сергей разбил мячом".Сергей: "Я не делал этого, стекло разбил Миша".Стало известно, что двое из ребят сказали чистую правду, а третий мальчик оба факта исказил. Кто разбил стекло? И прекрипите таблицу истиности

👇

Ответ:

Nastya125473333

04.10.2022

Это Сергей !!

Потому что он сказал что он не бил окно и сказал что это сделал Миша получается он искозил два факта .А Миша и Коля правдивы .

4,8(32 оценок)

Открыть все ответы

Ответ:

kazimirova2009

04.10.2022

Var
f: text;
i, j, n, n1: integer;
matrix: array[,] of real;
begin
assign(f, 'informat8.txt');
reset(f);
//найдём количество строк в матрице
while not eof(f) do
   begin
readln(f);
inc(n);
end;
writeln('исходная матрица размерности ', n, 'x', n);
//инициализируем массив (размерность узнали выше)
matrix := new real[n, n];
reset(f);
// далее работаем с матрицей размерности [0..n-1] (инициализация происходит, начиная с 0)
for i := 0 to n - 1 do
begin
for j := 0 to n - 1 do
begin
read(f, matrix[i, j]);
write(matrix[i, j]:8:2);
end;
readln(f);
writeln;
end;
writeln;
n1 := 0;
for i := 0 to n - 1 do
for j := 0 to n - 1 do
if matrix[i, j] < 0 then inc(n1);
if n1 > round(n * n / 2) then
begin
writeln('Отрицательных элементов больше половины');
//удваиваем элементы в чётных строках
for i := 0 to n - 1 do
begin
if odd(i) then begin
for j := 0 to n - 1 do
   matrix[i, j] := matrix[i, j] * 2;
end;
end;
end else
begin
writeln('Отрицательных элементов меньше половины или ровно половина');
//удваиваем элементы последнего столбца
for i := 0 to n - 1 do
matrix[i, n - 1] := matrix[i, n - 1] * 2;
end;
    writeln('результирующая матрица');
for i := 0 to n - 1 do begin
for j := 0 to n - 1 do
write(matrix[i, j]:8:2);
writeln;
end;
end.

Результат работы:

Написать программу в паскаль или исправить ошибку в моей программе. в матрице имеются как положитель

Написать программу в паскаль или исправить ошибку в моей программе. в матрице имеются как положитель

4,6(3 оценок)

Ответ:

никич43

04.10.2022

Чтобы найти объем доп. сведений на одного пользователя, нужно сначала найти объем пароля.

Мощность алфавита равна 8, это значит, что на один символ в пароле требуется минимум 3 бита, т.к. 2^3=8

Длина пароля равна 15, то есть его объем будет равен 15*3=45 бит
Пароль кодируется в байтах, 45:8=6 байт (пяти байт недостаточно, округляем в большую сторону).

На 20 пользователей выделено 320 байт, значит на одного выделено 320:20=16 байт.
Из этих 16 байт 6 байт приходится на пароль, значит на дополнительные сведения выделено 16-6=10 байт.

4,6(44 оценок)

Это интересно:

Образование-и-коммуникации

19.07.2021

Как преобразовать время из 12-часового в 24-часовой формат...

Здоровье

06.03.2021

Секрет понижения веса: как потерять килограмм в неделю...

Искусство-и-развлечения

24.07.2022

Как найти вдохновение для написания песен?...

Компьютеры-и-электроника