Question

Добрый вечер, помогите мне!
Нужно написать код для программы Pascal ABC, нужно написать код для решения этого уравнения. Спасибо!

Answer 1

write ('Vvedite pologitelnoe chislo: '); readln (x);
if x < 0 then write 'Vvedite pologitelnoe chislo' else
// проверка x > 0 обязательна, потому что иначе логарифм не определен.
begin
   if x < 1 then y = log(x)/log(10) + 2*x*x
   if x = 1 then y = 2*a*cos(x) + 3*a;
   if x > 1 then y = (a*x+b)/(x*x-1);
end;
write y;
end.