Объём жесткого диска можно узнать, нажав на ярлык "Моего компьютера" правой кнопкой мыши, после вызова контекстного меню выбрать "Свойства". Ну, к примеру, 100Гб
Ответ: a)
program dz;
var
k,a,b:real;
begin
read(a,b);
k:=(sqrt(a)+sqrt(b))/sqrt(sqr(a)+sqr(b));
write(k);
end.
б)
program dz;
var
x,z,y:real;
begin
read(z,y);
x:=z*y/sqrt((sqr(z)*z)+(sqr(y)*y));
write(x);
end.
Объяснение:
Подставляешь вместо x 3 умножаешь и получается
y=3*3-(6+1);
y=9-7;
y=2
Ответ :2
<em><u>Замечание:</u></em> данные в файле должны быть записаны по одному числу в строке.
const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'SuperFile.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Rewrite(f);
for i:=1 to n do Writeln(f,a[i],' ');
Close(f)
end.