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

1) звуком называется a) волна b) импульс, частота которого позволяет ему быть c) механические колебания 2) информационный продукт это a) совокупность информационных процессов b) документ, информационные массивы, базы c) совокупность данных , сформированных 3) к информационному обслуживанию не относится a) комплексное b) фактографическое c) документное 4) при перемещении ячейки с формулой стиля а1… a) не изменяются только абсолютные ссылки, содержащиеся в формуле b) не изменяются только константы, содержащееся в формуле c) не изменяются только относительные ссылки, содержащееся в формуле d) не изменяются любые ссылки на ячейки, содержащееся в формуле 5) программы lotys 1-2-3 и microsoft excel являются a) текстовыми редакторами b) системами базами данных c) электронами таблицами d) графическими редакторами 6) чем отличается корпоративный блог от корпоративного сайта? a) на корпоративном сайте размещается информация о компании, а корпоративный блог ведут несколько человек, рассказывая о жизни и процессах, протекающих внутри компании b) нечем не отличается, любой корпоративный сайт можно считать блогом c) блог- это представительство компании а интернете, а сайт- нет d) содержимым корпоративного сайта занимается только один человек , а блогом- несколько e) корпоративный сайт размещается в корпоративном блоге 7) как осуществляется регулирование материалов в коллективном блоге? a) коллективный блог- это закрытое сообщество, где все друг друга знают лично b) коллективный блог обладает механизмом саморегулирования c) за порядком коллективного блога следят большое количество добровольных модераторов d) коллективный блог не может содержать плохих материалов e) коллективный блог это и есть корпоративный блог 8) носители информации классифицируется a) типу (ленточные, флеш и дисковые) b) виду хранящихся на них сообщений c) объему памяти 9) технология blue – ray стала доступной a) в 2000 году b) в 2002 году c) в 2004 году 10) для кодировки символов в сша разработали специальную a) таблицу b) технологию c) программу

Показать ответ
Ответ:
imhopro
imhopro
09.01.2023 13:22
Int num = 0;           
Console.WriteLine("Введите элементы массива через пробел:");           
String[] array = Console.ReadLine().Replace("  "," ").Split();           
Int32[] numbers = new Int32[array.Length];           
Console.Write("Массив: [");           
for (int i = 0; i < numbers.Length; i++)           
{               
Console.Write(array[i]);               
if(i!=numbers.Length-1)                   
Console.Write(", ");               
numbers[i] = Int32.Parse(array[i]);               
if (num == 0)                   
num = numbers[i];           
}           
Console.Write("]\n");           
if (num > 0)               
Console.WriteLine("Максимальное число в квадрате: {0}",Math.Pow(numbers.Max(), 2));           
else
Console.WriteLine("Минимальное число в квадрате: {0}",Math.Pow(numbers.Min(), 2));           
Console.WriteLine("\nНажмите любую клавишу чтобы выйти...");            Console.ReadKey();
На с#, ! ввести одномерный массив, вывести его. выяснить, какое число в массиве встретится ранее – п
0,0(0 оценок)
Ответ:
n1myFurry21
n1myFurry21
27.09.2022 21:43
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

procedure FillStack(st:Stack<integer>; sq:sequence of integer);
begin
  foreach var t in sq do st.Push(t);
end;

procedure PrintStack(st:Stack<integer>; s:string);
begin
  Write(s); st.Println
end;

procedure ToStack(sta,stb:Stack<integer>; Even:boolean);
begin
  if Even then
    while sta.Count>0 do begin
      var v:=sta.Pop;
      if v.IsEven then begin
        stb.Push(v);
        exit
        end
      end
  else
    while sta.Count>0 do begin
      var v:=sta.Pop;
      if v.IsOdd then begin
        stb.Push(v);
        exit
        end
      end
end;

begin
  var st1:=new Stack<integer>;
  FillStack(st1,Seq(2,13,20,18,1));
  PrintStack(st1,'Стек1: ');
  var st2:=new Stack<integer>;
  FillStack(st2,Seq(9,11,10,8,4));
  PrintStack(st2,'Стек2: ');
  var st3:=new Stack<integer>;
  while st1.Count+st2.Count>0 do begin
    ToStack(st1,st3,True);
    ToStack(st2,st3,False);
    end;
  PrintStack(st3,'Стек3: ')  
end.

Результат
Стек1: 1 18 20 13 2
Стек2: 4 8 10 11 9
Стек3: 2 9 20 11 18
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота