<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
var c:=ReadReal('c=');
var p:=(a+b+c)/2;
var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:0:1)
end.
При а=3 результат а=30
при а=7, результат а=27
1) 7.85+2.6=10.45 км/ч скорость лодки по теч реки
2) 12,54:10,45=<span>1,2 ч время</span>
Ответ:
var a,b,h,f,x:real;
begin
write('Введите a,b,h');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':10);
while x<=b do
begin
f:=1/2*sin(x/4)+1;
writeln(x:8,f:10:3);
x:=x+h;
end
end.
Объяснение:
Это пример, там уже по своему как надо можешь поставить)
2^i=N, где N - объём информации, а i - кол-во бит, которым кодируется единица информации. N=16*8=128))) не за что