Мы используем компьютер для хранения и систематизации информации,для обучения,для досуга, развлечения,для общения,для покупок через интернет,для платежей.
<span>var x,y:integer;
begin
write('x = ');
readln(x);
y:=1-2*x+3*x*x-4*x*x*x;
writeln('y = ',y);
end<span>.
Пример:
</span><span>x = 3
y = -86</span></span>
Информационный объем аудиофайла I=t*n*i*k, где t- время звучания (с.), n- частота дискретизации (Гц), i- глубина кодирования звука (бит), k- количество каналов записи.
I=10*48000*16*2= 15360000 бит = 1875 Кбайт
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
p: real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write(p);
end.