Под термином "поколение ЭВМ" понимают все типы и модели ЭВМ, которые построены на одних и тех же научных и технических принципах
В 15 задании свою фамилию поставь и посчитай. Я там пример привела...
Тут же все очень легко не смеши.
// 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 Сделал как понял.
===== PascalABC.NET =====
begin
var (p, a, b) := ReadReal3('Введите p, a, b:');
var x := Ln(Tan(Sqrt(2)) + Abs(p)) / Ln(2);
Println(x.InRange(a, b))
end.
Объяснение:
arctg(2^x - |p| = √2
tg(arctg(2^x - |p|) = tg(√2)
2^x - |p| = tg(√2)
2^x = tg(√2) + |p|
x = ㏒₂( tg(√2) + |p| )
x = ㏑( tg(√2) + |p| ) / ㏑2
И теперь ответить, верно ли, что x ⊂ [a; b]