10101+111=10212
10101-111=9990
10101*111=1121211
10101:111=91
1.
x=-3 y=-2
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-2 y=-1
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-1 y=-0,5
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=-0,25
x<0 (нет)
x=x-5
y=y+3
x=-5 y=2,75
2.
x=-1 y=4
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=2
x<0 (нет)
x=x-5
y=y+3
x=-5 y=5
Var
n,i:Integer;
begin
for i:=-5 to 5 do
WriteLn(3*i+2);
end.
1) readln(n);
if n mod 3 = 0 then
writeln('True');
2)readln(x,y);
if (x=0) or (y=0) then
writeln('OSb');
if (x=0) and (y=0) then
writeln('center');