K Kill Регистрация 21 Янв 2013 Сообщения 83 Репутация 0 Спасибо 0 Монет 0 28 Янв 2017 #1 Вот тебе формулы, дальше сам: S := a + (a - b * b) / c; k := S * S - a * b * c; //Т. к. у тебя там модуль, можешь добавить условие с умножением на -1, если a * b * c < 0... y := a * S + k + (S + 1) / (b * c);
Вот тебе формулы, дальше сам: S := a + (a - b * b) / c; k := S * S - a * b * c; //Т. к. у тебя там модуль, можешь добавить условие с умножением на -1, если a * b * c < 0... y := a * S + k + (S + 1) / (b * c);
W wew Регистрация 7 Апр 2013 Сообщения 84 Репутация 0 Спасибо 0 Монет 0 28 Янв 2017 #2 begin - начало Read(a,b,c) - ввод - а здесь вычисления формулами Write - вывод end. - конец Что не изучали это? Позитивный голос 0
begin - начало Read(a,b,c) - ввод - а здесь вычисления формулами Write - вывод end. - конец Что не изучали это?