Задача №1var a,b,c:real;begina:=40;b:= 10;b:= a/2 *b;if a < b then c:= b -aelsec:= a - 2*b;writeln('c =', c);end.Задача №2var a,b,c:integer;begina:=5;a:= a +6;b:= -a;c:= a- 2*b;writeln('c =', c);end.
Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
По формуле
или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета
бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации
раз