kisaayan
01.01.2020 03:26

1
вопрос:
слушая песню по радио, источником информации является:
выберите один из 3 вариантов ответа:
1) исполнитель
2) радио
3) слушатель
#2
вопрос:
из ниже перечисленных предложений выбрать логическое высказывание:
выберите один из 3 вариантов ответа:
1) информатика - интересный предмет.
2) он - преподаватель .
3) рим- столица франции.
#3
вопрос:
символ, вводимый с клавиатуры при наборе, отображается на экране дисплея в позиции,
определяемой:
выберите один из 4 вариантов ответа:
1) задаваемыми координатами;
2) положением курсора;
3) адресом;
4) положением предыдущей набранной букве.
#4
вопрос:
предметы, процессы, явления, рассматриваемые с точки зрения их информационных свойств
называют:
выберите один из 3 вариантов ответа:
1) информационные объекты
2) информационная деятельность
3) информационные процессы
#5
вопрос:
второй этап информационных революций характеризуется появлением:
выберите один из 3 вариантов ответа:
1) письменности
2) электричества
3) книгопечатания
#6
вопрос:
формула хартли верна:
выберите один из 2 вариантов ответа:
1) для равновероятных сообщений
2) для не равновероятных #7
вопрос:
к прикладному по относится:
выберите один из 3 вариантов ответа:
1) программы- оболочки
2) создание презентаций
3) программы- архиваторы
#8
вопрос:
в информатике выделяют основные части:
выберите один из 3 вариантов ответа:
1) программные, технические
2) технические, алгоритмические
3) технические, алгоритмические, программные
#9
вопрос:
специальное место на диске, в котором хранятся группа файлов:
выберите один из 3 вариантов ответа:
1) файловая система
2) каталог
3) папка
#10
вопрос:
манипулятор "мышь" - это устройство:
выберите один из 4 вариантов ответа:
1) ввода информации;
2) модуляции и демодуляции;
3) считывание информации;
4) для подключения принтера к компьютеру.
#11
вопрос:
при отключении компьютера информация стирается:
выберите один из 4 вариантов ответа:
1) из оперативной памяти;
2) из пзу;
3) на магнитном диске;
4) на компакт-диске.
#12
вопрос:
к прикладному по относится:
выберите один из 2 вариантов ответа:
1) ос
2) текстовые редакторы

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Nelia88
10.12.2021 18:44

Саша - вышивание, Маша - танцы, Валя - рисование.

Объяснение:

Либо часть про Сашу, либо про Машу ложна (два верных утверждения быть не может). Тогда либо Саша занимается вышиванием, либо Маша - рисованием.

1) Саша занимается вышиванием. Тогда Валя не может заниматься вышиванием, её часть гарантированно ложна. Значит, верно утверждение про Машу: она не занимается рисованием, ей остаются танцы. Получается, Валя занимается рисованием.

2) Маша занимается рисованием. Остается два высказывания: Саша не занимается вышиванием, Валя - занимается вышиванием. Одно из этих утверждений истинно, другое ложно. Но если истинно первое, то обе девочки не занимаются вышиванием, если истинно второе - обе занимаются. Такого быть не может, поэтому Маша не может заниматься рисованием.

0,0(0 оценок)
Ответ:
omtanya
08.06.2020 18:16
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MatInput(a:array[,] of integer);
begin
  Writeln('Вводите элементы матрицы построчно, в конце нажимая Enter');
  for var i:=0 to Length(a,0)-1 do begin
    Write(i+1,': ');
    for var j:=0 to Length(a,1)-1 do Read(a[i,j]);
    end
end;

procedure MatPrint(a:array[,] of integer);
begin
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to Length(a,1)-1 do Print(a[i,j]);
    Writeln
    end
end;

function IsEqual(a:array[,] of integer; j1,j2:integer;
  flag:array of boolean):boolean;
// равны ли столбцы с индексами j1 и j2
begin
  if flag[j2]=False then begin
    Result:=True;
    for var i:=0 to Length(a,0)-1 do
      if a[i,j1]<>a[i,j2] then begin Result:=False; Break end;
    flag[j2]:=Result
    end
end;

begin
  var n:=ReadInteger('Задайте число строк (столбцов) матрицы:');
  var a:array[,] of integer;
  var m:=ArrFill(n,False);
  SetLength(a,n,n);
  MatInput(a);
  Writeln('*** Принятая матрица ***');
  MatPrint(a);
  var k:=1;
  for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do
      if IsEqual(a,i,j,m) then Inc(k);
  if k>1 then Writeln('Количество совпадающих столбцов равно ',k)
  else Writeln('нет совпадающих столбцов')
end.

Тестовое решение
Задайте число строк (столбцов) матрицы: 3
Вводите элементы матрицы построчно, в конце нажимая Enter
1: 1 2 2
2: 3 5 5
3: 2 2 2
*** Принятая матрица ***
1 2 2
3 5 5
2 2 2
Количество совпадающих столбцов равно 2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота