<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 ^ i= N
N = 65536
i= 16
объём = 800*600*16 = 7680000 bit = 960000 bait = 937.5 Кбайт
Если идет дождь, то это осень.
Если у животного есть хобот, то это слон.
Если двузначное число оканчивается на 0,
то это число четное