144
162
2
//PascalABC.NET 3.1 сборка 1200
begin
var k := 0;
for var i := 132 to 188 do
begin
var n := i;
while n mod 2 = 0 do
n := n div 2;
while n mod 3 = 0 do
n := n div 3;
if n = 1 then begin
k += 1;
writeln(i);
end;
end;
writeln(k);
end.
А) 101 0100 1010(2)=2^10+2^8+2^6=1024+256+64=1354
б) BABA(16)=11*16^3+10^16^2+11*16+10=47802
в) 110 00110110(2)=2^10+2^9+2^5+2^4+2^2+2=1024+512+32+16+4+2=1590
г) CACA(16)=12*16^3+10*16^2+12*16+10=51914
Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
var a:array[0..9] of integer;
i,min,max:integer;
begin
for i:=0 to 9 do readln(a[i]);
min:=a[0];
for i:=0 to 9 do if(min>a[i]) then min:=a[i];
max:=a[0];
for i:=0 to 9 do if(max<a[i]) then max:=a[i];
writeln(max,' ', min);
readln;
end.
Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.