//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
<span>Program Zerno;
Var
s,k:real;
i:byte;
Const
n=64;
Begin
s:=1;
for i:=1 to n-1 do
Begin
k:=exp(i*ln(2));
s:=s+k;
End;
Writeln('Количество зёрен: ',s,' штук');
Readln;
End.</span>
1) Без понятия, звучит как плохая постановка вопроса. Возможно это проходили именно вы и тебе будет ответить намного проще, нужен контекст.
Я так понимаю это "энергонезависимость"
2) Монитор
3) Жесткий диск
Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
<span>end.</span>
1 Кб = 1024 байт = 8192 бит
8192/4 = 2048 бит