Первая программа
var x,y: real;
begin
read(x);
y := x-Power(x,3)/3+Power(x,5)/5;
write('y = ', y );
end.
Вторая
var x,y: real;
begin
read(x);
y := Power(2, -x)-cos(x)+sin(2*x*y);
write('y = ', y );
end.
Третья
var x,y: real;
begin
read(x);
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12);
write('y = ', y );
end.
Четвертая
var x,y: real;
begin
read(x);
y := x-10*sin(x)+abs(power(x,4)-power(x,5));
write('y = ', y );
end.
В основе алгоритма лежит последовательное деление числа на 8 и анализ остатка от этого деления. Фактически, происходит получение цифр числа в восьмеричной системе счисления. Если очередная цифра нечетная, значение a увеличивается на нее, а если четная - значение b умножается на нее. В результате a - сумма нечетных цифр числа в его восьмеричном представлении, b - произведение четных цифр.
a=2 и есть только один способ получения такой суммы нечетных цифр: 1+1
b=12и есть только один способ получения такого произведения четных цифр: 2×6.
Теперь мы знаем все цифры восьмеричного числа: 1, 1, 2, 6.
Максимальное восьмеричное число, составленное из них - это 6211.
6211₈ = 6×8³+2×8²+1×8+1 = 3072+128+8+1 = 3209₁₀
Ответ: 3209
Var t,i,x,max:integer;
begin
max:=0;t:=0;
repeat
begin
x:=0;
read(x);
if (x>0) and (x=max) then i:=i+1;
if x>max then
begin
max:=x;
i:=1;
end;
t:=t+1;
end;
until (x<=0) or (t>=1000) or (x mod 1>0);
if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;
if i=0 then writeln('Введён только ноль');
if i>0 then writeln('Чисел, равных максимуму: ', i);
end.
4 задание не вижу,
5 D
6 D
7 B
8 А
