<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString.Select(c->integer(Ord(c))).Sum.Println
end.
Var
x: real;
begin
x := 0;
while x <= 6.283 do
begin
writeln('F(',x:0:1,') = ',sin(x)/x:0:2);
x := x + 0.31415;
end;
end.
Q1 = c1 *m*( t2- t1),
Q2 = c2 *m*,
Q3 = c3 *m*( t3- t2),
Q4 = c4 *m*.
Для решения задачи нужно использовать формулу Хартли: N = 2^I
Количество подъездов = 2^3 = 8