Program asd;
var x,y,z,v,f:real;
BEGIN
x:=1.825;
y:=18.225;
z:=-3.298;
Write('X: ',x);
Write('Y: ',x);
Writeln('Z: ',x);
v:=abs(exp(ln(x)*(y/x)) - exp(ln(y/x)*(1/3)));
f:=(y-x)*((y-z/(y-x))/1+sqr(y-x));
Writeln('V: ',v:2:2);
Writeln('F: ',f:2:2);
END.
<span>
</span>
Пусть будет х - фазанов и у - кроликов, тогда 2х - ног у фазанов и 4у - ног у кроликов. Так как у всех по одной голове, можем составить систему уравнений: система: х+у=35 и 2х+4у=94; пешим систему подстановкой: х=35-у; 2*(35-у)+4у=94; 70-2у+4у=94; 2у=24; у=12; х=35-12=23. Ответ: 23 фазана и 12 кроликов.
Подправишь где надо, потом сохранишь как написал выше.
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var a:=ReadReal('Введите зарплату в первый месяц->');
var z:=0.00;
for var i:=1 to 12 do
begin
Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.');
z+=a;
a:=a+a*0.1;
end;
Writeln('Зарплата за год: ',z:0:2,'р.');
end.
Пример:
Введите зарплату в первый месяц-> 100
Доход за 1 месяц составил 100.00 р.
Доход за 2 месяц составил 110.00 р.
Доход за 3 месяц составил 121.00 р.
Доход за 4 месяц составил 133.10 р.
Доход за 5 месяц составил 146.41 р.
Доход за 6 месяц составил 161.05 р.
Доход за 7 месяц составил 177.16 р.
Доход за 8 месяц составил 194.87 р.
Доход за 9 месяц составил 214.36 р.
Доход за 10 месяц составил 235.79 р.
Доход за 11 месяц составил 259.37 р.
Доход за 12 месяц составил 285.31 р.
Зарплата за год: 2138.43 р
P.S Сделал как понял.
18 марта 1192 а windowz ntв 1993
