Как залить фигуру градиентом паскаль

ответ:

uses graphabc;

var

  a: boolean;

 

begin

  setbrushcolor(clblue);

  setgradientbrushsecondcolor(clred);

  setpenmode(2);

  fillrect(100,100,300,300);

end.

объяснение:

1) 1000000 ответ: 1 2)44100*60*2*24=127008000 бит =  15876000 байт =  15503 кб 3)  пусть время х. тогда: 1/3*х * 60 + 2/3*х * 90 = 27000 20х + 60х = 27000 8х=2700 х=337 секунд 4)102 +  108 +1016 =  1226 =  10011001010(2) 6)128*16=2048 пикселей 512/2048 = 1/4 байта/пиксель = 2 бита/пиксель 2^2 = 4 ответ: 4 цвета 7)256 = 2^8 -> 8 бит/пиксель = 1 байт/пиксель 256*512*1=131072 байт = 128 кб 8)128 тбайт = 128 * 1024 * 1024 * 1024 * 1024 * 8 бит =  1125899906842624 бит 10) 1024 = 2^10 10*60*48000*10 =  288000000 бит =  35156 кбайт 11)    16*32*64*16 =  524288 бит =  64 кбайт 12) 44 символа * 1 байт/символ = 44 байта (ничего не подходит под первый символ)

Program e4;       var a, b, с: real;   begin     writeln ('введите длины трех сторон треугольника ');     readln (a, b, с);     write ('треугольник со сторонами ', а, ь, с);     if (а + b > с) and (b + с > a) and (а + с > ь) then begin       writeln ('существует');       if (a = b) and (a = c) then      writeln ('равносторонний')       else       writeln ('неравносторонний');     else            writeln ('не существует'); end;     readln  end.