1*1024*1024*8 = 8388608 бит - объём видеопамяти.
По формуле,
Iп=x*y*i
8388608=1920*1080*x
x=8388608:1920:1080
x = ~4,05 = 4 бита - глубина цвета, а значит,
2^4 = 16 различных цветов - максимально можно использовать.
//////////////////////////////////////////////////O_O//////////////////////////////////////////////////////////
Если я правильно понял условие, то код выглядит так.
uses crt;
var i,ans,sum:integer;
a:array[1..30] of integer;
begin
sum:=0;
ans:=0;
for i:=1 to 30 do
begin
a[i]:=10*i+2*sqr(i);
if a[i]<50 then
ans:=ans+1;
sum:=sum+a[i];
end;
writeln(sum/ans);
for i:=1 to 30 do
<span>write(a[i],' ');
</span>end.
Program sopr;
var R,L,p,S: real;
begin
write('p='); readln(p);
<span> write('S='); readln(S);
</span><span> write('L='); readln(L);
</span> R:=p*L/S;
write('удельное сопротивление равно ',R)
end.
Опять же задача сформулирована не корректно.
В случае использования кодировки UTF16 размер 1 символа составляет 2 байта, таким образом 25*2*2*10 = 1000 байт. В случае использования кодировки cp866 размер 1 символа составляет 1 байт в этом случае размер будет 500 байт. Существуют и другие кодировки для передачи таких сообщений. Не говоря уже о алгоритмах сжатия и оптимизации.