Program Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.
Нужно что-то присвоить функции для случая, когда (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>
<span>Що таке браузер? Бра узер,також бравзер,огляда ч, (веб-) переглядач(англ. browser МФА: [ˈbraʊ zɚ] бра вза — переглядач) —програмне забезпечення для комп'ютера або іншого електронного пристрою, як правило, під'єднаного доІнтернету, що дає можливість користувачеві взаємодіяти з текстом, малюнками або іншою інформацією нагіпертекстовій веб-сторінці.
</span>
2)Блок
Б- согласная
Блок
1234 буквы, 4 это чётное