Скласти програму для обчислення значення виразу S=(a+b-c)/k де а б с

Скласти програму для обчислення значення виразу S=(a+b-c)/k де а б с цл , к дйсне

Задать свой вопрос
2 ответа
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программка не работает, обновите версию!
ОТДЕЛ Задание+;
Употребляет Вывод ИЗ "...\Отделы\Размен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  a, b, c: ЦЕЛ;
  k, S: ВЕЩ;

УКАЗ
  Вывод.Цепь("a = ");
  a := Приём.Число();
  Вывод.Цепь("^b = ");
  b := Приём.Число();
  Вывод.Цепь("^c = ");
  c := Приём.Число();
  Вывод.Цепь("^k = ");
  k := Приём.Число();
  S := (a + b - c) / k;
  Вывод.ЧВещ("^S = %g", S, 0, 0, 0)

КОН Задание.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт