программирование линейных алгоритмов

Ответ от Личный Кабинет Удален[гуру]
Нет, к сожалению.. . y = 4,53 * tg x, а у Вас: y := sqr(x) * ArcTan(x); Совсем разные вещи. Правильно будет заменить эту строку на y := 4.53 * tan(x); И да, tan() берём из модуля Math, если что 🙂 То есть после program добавьте uses Math... program b1; uses Math; var y, x: real; begin write(\'Vvod x \'); readln(x); y := 4.53 * tan(x); writeln(y); readln; end. Да и то, если она у Вас именно на Delphi, а не на Паскаль, - так: program b1; {$APPTYPE CONSOLE} uses Math; var y, x: real; begin write(\'Vvod x \'); readln(x); y := 4.53 * tan(x); writeln(y); readln; end.