Program Example; {$APPTYPE CONSOLE} uses SysUtils, Ruskey in 'D:\Ruskey.pas'; // подключаем модуль с функцией Rus Var b, a: Integer; Begin Writeln(rus('Введите b')); Readln(b); 6*Sqr(b)+Abs(b-3)*3-15 Writeln(rus('Выражение 6b^9+|-3-3|(3))-15 равно '), a) ; Writeln(rus('Нажмите <Enter>')); Readln; End.
Добавлено (10.02.14, 22:16) --------------------------------------------- там где (b-3)в 3 степени
