2.
3(x-2)+2(4-x) = 3*(x-2)+2*(4-x)
4x^3-y^2 = 4*power(x,3)-sqr(x)
2a+b/3(b) = (2*a+b)/(3*sqrt(b))
3.
2(a-b) = 2*(a-b)
(a+b)(c+d) = (a+b)*(c+d)
2(c)/c-2d = (2*sqrt(c))/c-2*d
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.
Нет не верно, сообщение из 8 символов весит 16 БАЙТ информации, а не 16 БИТ
Есть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.
<span>var
Res, Num : Extended;
begin
//Округление до сотых долей:
Res := RoundTo(Num, -2);
//Округление до десятых долей:
Res := RoundTo(Num, -1);
//Округление до единиц:
Res := RoundTo(Num, 0);
//Округление до десятков:
Res := RoundTo(Num, 1);
//Округление до сотен:
Res := RoundTo(Num, 2)<span>;
</span></span>end;
Функция SimpleRoundTo()<span> сходна с </span>RoundTo()<span> – различие лишь в способе округления последнего знака. </span>SimpleRoundTo()<span> округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному</span>