1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт
Один раз отмерь, один раз отрежь!
33 символа
1 символ кодируется 16 битами
33*16=528 бит=66 байт
*В формуле это выглядит так
i=16 бит
K=33
-------
I-?
I=Ki=33*16=528 бит=66 байт
Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
Const
N = 5;
M = 10;
Var
A : array[1..N,1..M] of Integer;
i,j : Byte;
Begin
For i:=1 to N do
Begin
For j:=1 to M do
Begin
If i>j then A[i,j]:=i else A[i,j]:=i*j;
Write(a[i,j]:6);
end;
Writeln;
end;
end.
Ответ:
<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>