===== PascalABC.NET =====
begin
var q := new Queue<integer>(SeqRandom(10, -99, 99));
q.Println;
q.Enqueue(q.Take(5).Sum);
q.Println;
end.
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
<span>end.</span>
№1
37 = 100101
64 = 1000000
121= 1111001
307= 100110011
511 = 111111111
91 = 1011011
366 = 101101110
404 = 110010100
717 = 1011001101
1228 = 10011001100
№2
101010= 42
100100=36
11111= 31
101110= 46
1100011=99
1001010=74
1100010000=784
101110001=369
1000001=65
1011001=89
Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>