Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
25-->11001
/////////////////////
22В1 = 2*16^3 + 2*16^2 + 11 * 16 + 1 = 8881
968 = 9*16^2 + 6*16+8 = 2408
Програ́ммное обеспе́чение <span>(допустимо также произношение </span>обеспече́ние (ПО) — программа или множество программ, используемых для управления компьютером<span>.</span>
Г
Обработка информации-исполнение совокупности спланированных действий над имеющейся информацией с целью получения новой(получение нового содержимого, изменение формы представления информации)