1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
А) Т.к. компьютер офисный, то и наворотов в нем должно быть немного.Можно взять самую дешевую материнскую плату, микропроцессор и т.д. Видеокарту смысла брать нет, т.к. видеокарты, которая находится на материнской плате вполне хватит на документы : • микропроцессор Celeron с сокетом 478 — 1630 руб • материнская плата с сокетом 478 — 1340 руб. • корпус компьютера с блоком питания мощностью 350 В — 1310 руб. • модули оперативной памяти объемом 128 Мбайт — 610 руб. • жесткий диск объемом 120 Гбайт — 2260 руб.; • сетевая карта 10/100 Мбит/с — 100 руб. • принтер струйный (цветной) — 2150 руб.; • сканер — 2510 руб.; • монитор CRT, диагональ 17 дюймов — 3810 руб.; • мышь оптическая — 200 руб.; • клавиатура — 180 руб. Итог : 16100
9. var a,min,i:integer;
begin
min:=100;
for i:=1 to 3 do
begin
Writeln('Введитп возраст ' ,i, ' призера спартакиады');
readln(a);
if a<min then min:=a;
end;
Writeln('Возраст самого младшего призера - ', min, ' лет');
end.
10. var k,l,x,y,y1:integer;
begin
Writeln('Введиье k');
Readln(k);
Writeln('Введиье l');
Readln(l);
Writeln('Введите координату x точки');
ReadLn(x);
Writeln('Введите координату y точки');
ReadLn(y);
y1:=(k*x)+l;
if y>y1 then Writeln('Прямая лежит над прямой');
if y=y1 then Writeln('Прямая лежит на прямой');
if y<y1 then Writeln('Прямая лежит под прямой');
end.
1 бит. Т.к. всего цветов фигур 2, то i=1 бит.
13 мбайт = 13*1024 кбайт = 13*1024*1024 байт = 13*1024*1024*8 бит = 109 051 904 бит. 68 бит = 68/8 байт = 68/(8*1024) = 0.0083 кбайт.