Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите пожалуйста с прогой
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 степени

1 | Автор: Agent74 | 2014-02-10, 22:16   |  Репутация: [ + 0 ]
1 | Автор: Agent74 | 2014-02-10, 22:16   |  Репутация: [ + 0 ]
up
2 | Автор: skorp | 2018-10-30, 11:15   |  Репутация: [ + 0 ]
2 | Автор: skorp | 2018-10-30, 11:15   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: