Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger).ToString.Select(x->x.ToDigit).Sum);
end.
Вроде это чпу !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Алгоритм решения логарифмических уравнений.
1)Смотришь,чтобы у логарифмов были одинаковые основания;
Если основания разные,то приводишь к одинаковому основанию
2)Пишешь ОДЗ
3)Выполняешь арифметические действия;
4)Получаешь ответ,если ответ не сходится с ОДЗ,то корней уравнения нет.Если корни подходят,то выписываешь,те корни которые подошли
1. На картинке.
2. (1+2+3)/2=3
3.Если сумму чисел 5 и 10 умножить на 2, то получится 30.