РЕБЯТА, ТОМУ, КТО ЭТО РЕШИТ ПРАВИЛЬНО ЭТО ОЧЕНЬ Вариант 4
1. В цветовой модели RGB для кодирования одного пикселя используется 2 байта. Фотографию размером 1024x1536 пикселей сохранили в виде несжатого файла с использованием RGB-кодирования. Определите размер получившегося файла в мегабайтах.
2. Для хранения растрового изображения размером 32*32 пикселя отвели 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения?
3. Информационное сообщение объемом 2,5 Кбайта содержит 2560 символов. Сколько символов содержит алфавит, при которого было записано это сообщение?
4. Для записи текста использовался 256-символьный алфавит. Каждая страница содержит 30 строк по 70 символов в строке. Какой объем информации содержат 5 страниц текста? ответ дайте в байтах.
5. Сколько страниц в тексте, если он занимает объем памяти 56 Кбайта, на каждой странице 1024 символа, мощность алфавита 128 символов?

Begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if (a mod i = 0) then
      writeln('> ', i);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

begin
  var a: integer;
  readln(a);
  writeln(Simple(a));
end.

var
  a: integer;

begin
  readln(a);
  for i: byte := length(a.ToString()) downto 1 do
    write(a.ToString()[i]);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

function par(a: integer): string;
begin
  for i: byte := length(a.ToString()) downto 1 do
    result += a.ToString()[i];
end;

  
begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
      writeln('> ', i);
end.

3

Объяснение:

Переведем все в 16-ричную систему.

Разбиваем двоичное число на четверки и переводим в 16-ричную

1 0110 1101

1    6     D

1 1111 0110

1   F    6

Восьмеричное число переведем в двоичную, а потом в 16ричную

Преобразуем цифры в триады

6      2       7

110  010   111

Получившееся число разбиваем на четверки и переводим в 16-ричную

1 1001 0111

1     9     7

Требуется найти числа меньше 197

Такие числа: 3F 18F 16D

Всего чисел 3

 

Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"  

Бодрого настроения и добра!  

Успехов в учебе!