//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b,c):=ReadReal3;
var p:=(a+b+c)/2;
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.
Пример:
3 4 5
S=6
16 = 2 в ст 4.
4 бита на 1 символ
1/16 МБ = 1024 * 1024 * 8 / 16 бит = 524288 бит
ответ 524288 / 4 = 131072 символов
3) В сообщении: "Привет, Володя" каждый символ записан в системе unicod. Вес одного символа 8 бит. Чему равен вес всего сообщения?
2) Каждый цвет записан 16 битами. Сколько всего цветов?
Var
n,x:integer;
s:string;
begin
s:='Нет';
readln(n);
while n>0 do
begin
x:=n mod 10;
if x=7 then s:='Да';
n:=n div 10;
end;
writeln(s);
<span>end.</span>