Var
a,b:integer;
r:real;
begin
readln(a);
readln(b);
r:=(a+b)/2;
writeln(r);
end.
Не очень понятны исходные формулы. Но, скорее всего, имеется в виду следующее:
1. y = (7*x*x-8*x-1)/(5*x+4)
2. y = sqr(cos(x))/4-sqr(sin(abs(x+y)))
У него две монеты на сумму 7 копеек - то есть одна не пятак, а про вторую нечего не говорится, значит она может быть пятаком, а другая естественно 2 копейки!
//FPC 2.6.4
var n, sum, i: longint;
begin
readln (n, sum);
for i:=0 to n-1 do sum:=sum-i*2;
sum:=sum div n;
for i:=0 to n-1 do write (sum+i*2, ' ');
end.
В отличие от кода Морзе, код Бодо двоичный: в нем каждый символ кодируется 5 битами. Это позволяет четко разделять знаки. Код Морзе по сути троичный (точка - тире - пауза) и плохо подходит для переключающих схем, имеющих два устойчивых состояния.