Составить программы на языке Паскаль и блок-схемы вычисления значений функций: y=3x^-√x-5+10

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.

1.

1.572864

1024×768×2=1572864

1572864 байт = 1.572864 мегабайт (10⁶ байт)

2.

32х32=1024 точек.

то есть 1 байт должен хранить информацию о 2 точках.

8 бит в байте.

на одну точку приходится 4 бита

2 в 4 степени - 16 цветов

вроде так.

3.

2.5 кБайт = 2560 байт.

2560 байт / 2560 символов = 1 байт/символ

1 байт = 8 бит

8 бит = 256 вариантов (от 00000000 до 11111111).

ответ: 256 символов в алфавите.

4.

1) N = 2^i

256 = 2^i

i = 8 бит глубина кодирования одной буквы из 256-символьного алфавита

2) 30 * 70 * 5 = 10500 символов всего на 5 страницах текста

3) 10500 * 8 бит = 84000 бит нужно для кодирования всего текста

84000 / 8 = 10500 байт / 1024 = 10,25 Кбайт

ответ: 10,25 Кбайт нужно для кодирования всего текст

5. если я не ошибаюсь 12

Объяснение: