Ответ: 0
s = 0 => любое умножение на 0 равно 0
<span># Работоспособность проверена
x = int(input())
if x<-1:
y = -<span>1
</span>elif x>-1:
y = x
else: y = <span>1
</span>print(y)
</span>
Var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
Var a,b,x,y:real;
Begin
Writeln('vvedi a,b ');
Readln(a,b);
X:=b*sin(2*a);
Y:=sin(x)-x;
Writeln('x=',x,'y=',y);
Readln;
End.
Самому лень решать , подскажу что в одном КИЛОБАЙТЕ - 1000 БИТ ) Дальше думаю сами додумаетесь