<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
<span>100101</span>₂= 1*2⁵+1*2²+1*2⁰= 32+4+1= 37₁₀
<span>а) макет застройки жилого района в мастерской архитектора</span>
<span>б) макет скелета животного в кабинете биологии</span>
<span>в) модель полета самолета новой конструкции в аэродинамической трубе</span>
<span>г) сделанные из космоса фотоснимки движения воздушных масс</span>
<span>д) расписание движения автобусов</span>