Var i, byear, eyear, k : integer;
Begin
read(byear, eyear);
byear := byear + 1;
for i := byear to eyear do
if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
writeln(k);
End.
<span>Неактивна:
Button1.Enabled :<span>=false;
Активна:
</span></span><span>Button1.Enabled :<span>=true;</span></span>
П0 sin ИП0 1/x + С/П
Для значения 5 выдаёт "-7,5892425 -1".
<span># Работоспособность проверена
x = int(input())
if x<-1:
y = -<span>1
</span>elif x>-1:
y = x
else: y = <span>1
</span>print(y)
</span>