Question

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

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";

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

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

КОН Задание.

Answer 2

Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!