<u>ГВАБ</u>
<em>Переведём всё в биты:
</em>а) <em>2048
</em>б) <em>4096
</em><em />в)<em> 512</em>
г) <em /><em>128</em>
Program Abc;
Var a,b,c : real;
Begin
WriteLn('Введите а, b, c');
ReadLn(a,b,c);
WriteLn('Ответ: ',(b+sqrt(sqr(b)+4*a*c))/2*a-a*a*a*c+1/sqr(b));
End.
=)
Пусть х - время в секундах.
Тогда
(1/3 * 60/8 мбайт/с * x) с - время за треть времени)
(2/3 * 90/8 мбайт/с * x) с - время за две третти времени
Тогда уравнение получается
1/3 * 60/8 * x + 2/3 * 90/8 * x = 9000
2,5x + 7,5x = 9000
10x = 9000
x = 900
Получается 900 секунд или 900/60 = 15 минут)
А) например, фамилии в списке класса или телефонном справочнике; слова в словаре
б) Города в списке "самых больших по численности населения", "по площади".
в)запись событий в дневнике
a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)