даня7345985
07.04.2021 03:16

1) Сколько существует натуральных чисел x, для которых выполняется неравенство
100110102 < x < EE16?
В ответе укажите только количество чисел сами числа писать не нужно
2)На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое
число следующим образом:
1) Строится двоичная запись числа N.
2) К этой записи дописываются справа ещё два разряда по следующему правилу:
если N чётное, в конец числа (справа) дописываются два нуля, в противном случае
справа дописываются две единицы.
Например, двоичная запись 1001 числа 9 будет преобразована в 100111.
Полученная таким образом запись (в ней на два разряда больше, чем в записи исходного
числа N) является двоичной записью числа – результата работы данного алгоритма.
Укажите минимальное число N, для которого результат работы алгоритма будет
больше 167. В ответе это число запишите в десятичной системе счисления.
3)Музыкальный фрагмент был записан в формате квадро (четырёхканальная запись),
оцифрован и сохранён в виде файла без использования сжатия данных. Размер
полученного файла без учёта размера заголовка файла – 14 Мбайт. Затем тот же
музыкальный фрагмент был записан повторно в формате моно и оцифрован с
разрешением в 4 раза выше и частотой дискретизации в 2 раза меньше, чем в первый
раз. Сжатие данных не производилось. Укажите размер в Мбайт файла, полученного
при повторной записи. В ответе запишите только целое число, единицу измерения
писать не нужно. Искомый объём не учитывает размера заголовка файла.
4)Аня составляет 5-буквенные коды из букв А, Н, Я. Буквы в коде могут повторяться,
использовать все буквы не обязательно, но букву А нужно использовать обязательно
один раз. Сколько различных кодов может составить Аня?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mariagrigoryan3
09.03.2021 20:31

var 

  a, b, c: real;

 

begin

  writeln('Введите 3 любых числа');

  readln(a, b, c);

  if (a < b) and (a < c) then writeln(a, ' - наименьшее число');

  if (b < a) and (b < c) then writeln(b, ' - наименьшее число');

  if (c < a) and (c < b) then writeln(c, ' - наименьшее число');

  if (a > b) and (a > c) then writeln(a, ' - наибольшее число');

  if (b > a) and (b > c) then writeln(b, ' - наибольшее число');

  if (c > a) and (c > b) then writeln(c, ' - наибольшее число');

  readln; //Убрать если среда разработки не Turbo Pascal

end.

0,0(0 оценок)
Ответ:
kilutikkkasd
09.03.2021 20:31
Разветвляющийся алгоритм

Var a,b,c,d,e:integer;

Begin

Writeln('Введите значения переменных');

Readln(a,b,c,d,e);

If (a>b) and (a>c) and (a>d) and (a>e) tnen

Writeln('Наибольшее из 5 чисел ', a)

Else

If (b>a) and (b>c) and (b>d) and (b>e) tnen

Writeln('Наибольшее из 5 чисел ', b)

Else

If (c>a) and (c>b) and (c>d) and (c>e) tnen

Writeln('Наибольшее из 5 чисел ', c)

Else

If (d>a) and (d>b) and (d>c) and (d>e) tnen

Writeln('Наибольшее из 5 чисел ', d)

Else

Writeln('Наибольшее из 5 чисел ', e);

End.

Циклический алгоритм

Type

Vector=array [1..10] of integer;

Var m:integer;

a:vector;

i:byte;

Begin

Writeln('Введите значения переменных');

For i:=1 to 5 do

      Readln (a[i]);

For i:=1 to 5 do

If  a[i]>a[i+1] then

m:=a[i];

Writeln('Наибольшее число ', m);

End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота