М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kristin20
kristin20
21.02.2023 10:41 •  Информатика

Составить программу на паскаль из массива р, содержащего 10 элементов, сформировать массив н по правилу: н(к)=i/p(к), (к -чётные), н(к)=р(к)+к, (к - нечётные) в массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов. в массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.

👇
Ответ:
пага45
пага45
21.02.2023
{Из массива Р, содержащего 10 элементов, сформировать массив Н по правилу:Н(к)=I/P(к), (к -чётные), Н(к)=Р(к)+к, (к - нечётные)В массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов.В массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.}var P:array[1..10] of integer; H:array[1..10] of real;i:integer;index1, index2:integer;
begin

  writeln('Введите элементы массива P: ');  for i:=1 to 10 do  begin  readln(P[i]);  end; writeln; writeln('Массив P: ');  for i:=1 to 10 do  begin  write(' '+P[i]+' ');  end;
  writeln;  writeln('Массив H: ');   for i:=1 to 10 do  begin   if (i mod 2 = 0) then  begin  H[i]:=1/P[i];  end;   if (i mod 2 <> 0) then  begin  H[i]:=P[i]+i;  end;   end;  for i:=1 to 10 do  begin  write(' '+H[i]+' ');  end;   writeln; writeln;  writeln('Нечётным элементам присваиваем значения квадратов их индексов');  for i:=1 to 10 do  begin  if (i mod 2 <> 0) then  P[i]:=i*i;  end;   for i:=1 to 10 do  begin  if (i mod 2 <> 0) then  H[i]:=i*i;  end;  writeln('Массив P: ');  for i:=1 to 10 do  begin  write(' '+P[i]+' ');  end;
  writeln;  writeln('Массив H: ');  for i:=1 to 10 do  begin  write(' '+H[i]+' ');  end;   writeln; writeln; writeln('Напечатать индекс последнего из элементов, равных 0'); for i:=1 to 10 do  begin  if (P[i] = 0) then  index1:=i;  end;  writeln;  writeln('Индекс для массива P: '+index1);    for i:=1 to 10 do  begin  if (H[i] = 0) then  index2:=i;  end;  writeln;  writeln('Индекс для массива H: '+index2);  end.
4,4(92 оценок)
Открыть все ответы
Ответ:
Meager36655
Meager36655
21.02.2023
Каждая буква в алфавите кодируется определенным количеством бит, чем больше букв, тем больше бит требуется для кодирования. Нам дано, что каждое слово состоит из 5 букв и при этом 1024мя словами исчерпывается словарный запас. Значит если в алфавите Х букв, то на первом месте слове может быть Х вариантов, на втором столько же и так далее. Итого комбинаций Х в степени 5. 
Значит Х в степени 5 = 1024.
Отсюда Х=4.
4 буквы в алфавите. 
Закодировать 4 буквы - 4 варианта можно 2мя битами. 2 в степени 2 =4.
Значит одна буква несет 2 бита информации.
4,4(79 оценок)
Ответ:
mishanyak1999
mishanyak1999
21.02.2023

 Я очень люблю уроки информатики. Это мой любимый урок. Там всегда весело и интересно. Каждый раз я узнаю что-то новое. Каждый урок не похож на другой, в школе такое бывает редко. Мне нравится работать на компьютере.

На самых первых уроках мы изучали Paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. Еще мне нравится интерактивная доска. На ней мы рисуем и выполняем задания специальным карандашом с батарейками. На большом экране мы видим монитор учителя, и  всему классу наглядно понятно,  что и как делать.

Еще на уроках информатики  мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. Это очень интересно. Сразу создается впечатление, что ты побывала в новом месте и увидела много нового.

У нас очень хороший учитель. Она всё объясняет и показывает. . 



4,5(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ