Для хранения растрового изображения размером 230×230 пикселей отвели 8КБ памяти. Каково максимально возможное число цветов в палитре изображения?​

Дано

K=230*230

I= 16 Кб

Найти

N -?

Решение

I=K*i    N=2^i

I=16*1024*8=131072 бита

i=131072/(230*230)=2,5 значит N=2^2,5=6

ответ 6 цветов в палитре

Объяснение:

program Lyonyshna;
const
    Rus = ['А'..'Я', 'а'..'я'];
    Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
    i: integer;
    st,strus,stlat,stoth: string;
begin
    Assign(f, 'file1.txt');
    Rewrite(f);
    write('Введите исходную строку: '); readln(st);
    writeln(f,st);
    close(f);
    strus:='';
    stlat:='';
    stoth:='';
    Reset(f);
    Assign(frus, 'russian.txt');
    Rewrite(frus);
    Assign(flat, 'latin.txt');
    Rewrite(flat);
    Assign(foth, 'other.txt');
    Rewrite(foth);
    Readln(f,st);
    for i:=1 to length(st) do
      if st[i] in rus then strus:=strus+st[i]
        else
          if st[i] in lat then stlat:=stlat+st[i]
            else
              stoth:=stoth+st[i];
    Writeln(frus,strus);
    Writeln(flat,stlat);
    Writeln(foth,stoth);
    Writeln('Русские символы: ',strus);
    Writeln('Латинские символы: ',stlat);
    Writeln('Другие символы: ',stoth);
    Close(f); Close(frus); Close(flat);  Close(foth);
end.

Паскаль АВС. Программа меняет местами половинки массива: (6-10) и (1-5)

Program nana05;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,j,min,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{меняем местами половинки массива}
  for i:=1 to 5 do
    begin
      temp:=a[i];
      a[i]:=a[5+i];
      a[5+i]:=temp;
    end;
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.