Нужно Подробное Решение этих задач
1.64 –цветной рисунок содержит 512 Мбайт информации. Из какого количества точек он состоит?

2.Для хранения растрового изображения размером 256х256 пикселов отвели 53 Кбайт памяти. Каково максимально возможное число цветов в палитре изображения?

3.Укажите минимальный объём памяти (в килобайтах), достаточный для хранения любого растрового изображения размером 265х256 пикселов, если известно, что в изображении используется палитра из 256 цветов. Саму палитру хранить не нужно.

4.В процессе преобразования растрового графического файла количество цветов уменьшилось с 512 до 32. Во сколько раз уменьшился информационный объём файла?

5.Монитор позволяет получать на экране 61 777 216 цветов. Какой объём памяти в байтах занимает один пиксел?

6.Разрешение монитора – 1024х768 точек, глубина цвета – 20 бит. Каков необходимый объём видеопамяти для данного графического режима?

Сейчас всех кого не лень сажают за компы, даже тех кому оно особо и не надо

Бухи используют специальные бухгалтерские проги чтоб считать данные и сдавать отчеты в разные организации, бд обязательны

Кассиры подсчитывают и фиксируют купленные товары и чеки в специальных своих программах, опять таки бд тоже

программисты в зависимости от вида деятельности пользуются различными средами разработки, тестирования, системами контроля версии и багтрекерами

художники и дизайнеры пользуются фотошопами, 3д программами, корелами и тп

 

если надо больше то напиши мне сообщение

 

1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.