D: = b*b + sqrt(c/abs(a)); тут еще нужно проверять a на неравенство нулю. a, b, c - это целые или вещественные числа?
Спасибо
Ответ дал: Гость
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
Популярные вопросы