Ответ:
<h3>а)
<em>программа написана на делфи</em> </h3>
на форме создаем Edit1(куда вводится значение а), Edit2(куда вводится значение b) Label1(выводится результат) и кнопку(Button1).
var a,b,c:Real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=power(a+b,2)*2*(power(a,2))*b;
Label1.Caption:=IntToStr(C);
end;
end.
б)на форме создаем как и в первом!!
var x,y,z:Real;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=Abs(sqr(x-2))+x*sqrt(y);
Label1.Caption:=IntToStr(Z);
end;
end.
<u>НЕ</u><u> </u><u>ЗАБУДЬТЕ</u><u> </u><u>ДОБАВИТЬ</u><u> </u><u>МОДУЛЬ</u><u> </u><u>math</u><u> </u><u> </u><u>,</u><u> </u><u>иначе</u><u> </u><u>будет</u><u> </u><u>выдавать</u><u> </u><u>ошибку</u><u>.</u><u>.</u><u>.</u>
1) <u>Определение теплоты</u> <u>
</u><u />Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) <u>Площадь треугольника</u>
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)<u>Массив</u>
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.
Внутренее представление хранится в обратной записи, т.о. число было 41f8 что в десятичной 16888
128 бит / 8 = 16 байт / 1024 = 0,015625 Кбайт
40 Кбайт = 40 *1024 = 40960 байт * 8 = 327680 бит
40 Кайт = 40 * 1024 = 40960 байт
1792 Кб = 1792 / 1024 = 1,75 Мбайт