Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>
Робоча книга - документ у програмі Excel
Для палитры <span>16 777 216</span> необходимо 2^i = 16 777 216, i=24 бит
1024*768*24 = 18 874 368 бит
делим на 8 бит в байте = 2 359 296 байт
делим на 1024 байт в кб = 2304 кб
или же 2,25 мб
Program massiv;
Const N=10;
Var Rmin: integer;
j,i:integer;
C:array[1..N] of real;
T:array[1..2*N]of real;
Begin
For i:=1 to N do Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write(C[i]:5:2, ' ');
End;
writeln('');