var
price, a, b:real;
begin
write('Введите стоимасть 1 кг краски '); readln(price);
write('Введите длину комнаты '); readln(a);
write('Введите ширину комнаты '); readln(b);
writeln('Стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);
end.
Var
x, a, t, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
Write('Введите значение коэффициента a: ');
Readln(a);
{боремся с неположительным значением под знаком корня}
t := a - cos(x);
if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
else if t = 0 then y := exp(x + 1.8)
else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326
1000/12=83,(3);
83*12=996(через 996 месяцев пройдет ровно 83 года и будет снова Декабрь);
+ 4 месяца (т.к. 1000-996=4);
Декабрь -> Январь(1) -> Февраль(2) -> Март(3) -> Апрель(4);
Через 1000 месяцев (начиная с 15 декабря) будет 15 Апреля.
N=2^i
128=2^i
i=7 бит
58*7=406 бит
ответ: 406 бит