===== PascalABC.NET =====
begin
var a := ArrGen(42, i -> 7 * i, 1);
a.Println
end.
Рыбак одет в зелёную кепку и кофту за спиной удочка он очень рад так как поймал большую рыбу его окружает вода и камыши
001100 - 6 цифр
N=2^i
N=2^6
N=64
64 цвета в палитре
(1) var a:integer; b:boolean;
begin
read(a);
if (a > 100) and (a < 120) then b := true else b := false;
if (b) then writeln('popal') else writeln('ne popal');
end.
(2) var i:integer; n: integer;
begin
read(n);
for i := 1 to n do writeln('I love jumping');
end.
Разбиваем справа налево по три разряда и записываем соответствующую восьмеричную цифру.
010 011 -> 23 (8)