1. в цветовой модели rgb для кодирования одного пикселя используется 3 байта. фотографию размером 2048x1536 пикселей сохранили в виде несжатого файла с использованием rgb-кодирования. определите размер получившегося файла. 2. для хранения растрового изображения размером 128*128 пикселей отвели 4 килобайта памяти. каково максимально возможное число цветов в палитре изображения?

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.