<span><span>var n,i,posmax:integer;
max:real;
a:array of real;
<span>begin</span></span></span>
решением неравенста является множество {4 5 6 7}
его мощность равна 4
Ответ:
Объяснение:
var
x, y:real;
begin
//x:=5;
readln(x);
if (x < -1) then y:=x+2;
if ((x >= -1) and (x <= 2)) then y:=x*x;
if (x > 2) then y:=6-x;
writeln(y);
end.
4^k < m.
представим m как 4^log(4)m. (Это выражение равно m (по основному логарифмическому тождеству), 4 - основание логарифма).
4^k < 4^log(4)m.
k < log(4)m.
Т.е по идее получается, что наибольшее целое k = log(4)m с отбрасывание дробной части.
Сам код:
var m:integer; k:real;
begin
write('m = ');
readln(m);
k:=ln(m)/ln(4); {вычисляем логарифм m по основанию 4}
write('k = ',int(k)); {выводим целую часть}
end.
// 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 Сделал как понял.