Если на паскале, то
var
x: integer;
y: real;
begin
readln(x);
if x < 0 then
y := x*x+5*x
else
y := sqrt(x+6);
writeln(y);
<span>end.
Если в виде блок-схемы, то прикрепил картинку</span>
For i=1 to 15
input a
s=s+a
next
? s
Var sum,i:integer; beginfor i:=1 to 500 do if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.
<span>1) А*¬А*С
</span>А=1;0
<span>¬А(противоположна А)=</span>0;1
есть правила:
1*1=1 1+1=1
1*0=0 1+0=1
0*1=0 0+1=1
1*1=1 1+1=1