<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No
-2<=0 -> A = -1+(-2) = -3
-3<0 -> A = (-2)*(-2)/2 = 2
Ответ: 2
Var n,i:integer;
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,' ',y1:5:3);
writeln(2,' ',y2:5:3);
for i:=3 to n do
begin
yn:=1/6*(y2+1/y1);
writeln(i,' ',yn:7:5);
y1:=y2;
y2:=yn;
end;
end.
Пример:
5
<span>1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009</span>
Приходить на работу нетрезвым
не красть еду у коллег
грубо и вызывающе себя вести неприемлемо
нельзя зависать в соц сетях
играть в комп игры
нельзя нецензурно выражаться
не уместны личные беседы по телефону
надо выглядеть чисто и опрятно
здоровайтесь не опаздывайте
помнить о времени,оно у всех ограничено
и конечно не провоцировать ссоры в коллективе
как то так)))