а)
var x, y :integer;
begin
write ('x = ');
readln(x);
if (x<=0)
then y:=x
else if (x>=5)
then y:=4
else y:=sqr(x)*x;
write ('y = ',y);
end.
б)
var x, y, xtreugA, ytreugA, xtreugB, ytreugB, xzentrokr, yzentrokr, radokr :integer;
write ('y = ');
readln(y);
xtreugA:= -4;
ytreugA:= 0;
xtreugB:= 0;
ytreugB:= -5;
xzentrokr:= 10;
yzentrokr:= 7;
radokr:=3;
if x-xtreugA)*(ytreugB-ytreugA)-(y-ytreugA)*(xtreugB-xtreugA))<=0) and (x<=0) and (y<=0))
then writeln('Popadanie v treugolnik')
else writeln('Ne popadanie v treugolnik');
if (sqrt(sqr(xzentrokr-x)+sqr(yzentrokr-y)) <= radokr)
then writeln('Popadanie v okruznost')
else writeln('Ne popadanie v okruznost');
а)
var x, y :integer;
begin
write ('x = ');
readln(x);
if (x<=0)
then y:=x
else if (x>=5)
then y:=4
else y:=sqr(x)*x;
write ('y = ',y);
end.
б)
var x, y, xtreugA, ytreugA, xtreugB, ytreugB, xzentrokr, yzentrokr, radokr :integer;
begin
write ('x = ');
readln(x);
write ('y = ');
readln(y);
xtreugA:= -4;
ytreugA:= 0;
xtreugB:= 0;
ytreugB:= -5;
xzentrokr:= 10;
yzentrokr:= 7;
radokr:=3;
if x-xtreugA)*(ytreugB-ytreugA)-(y-ytreugA)*(xtreugB-xtreugA))<=0) and (x<=0) and (y<=0))
then writeln('Popadanie v treugolnik')
else writeln('Ne popadanie v treugolnik');
if (sqrt(sqr(xzentrokr-x)+sqr(yzentrokr-y)) <= radokr)
then writeln('Popadanie v okruznost')
else writeln('Ne popadanie v okruznost');
end.