Var
a:array[1..1000]of integer;
i,n,k,c,q:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 10 = 4) then
begin
k:=a[i];
c:=0;
while k>0 do
begin
c:=c + k mod 10;
k:= k div 10;
end;
if c mod 3 = 0 then
q:=q+1;
end;
end;
writeln(q);
end.
Обратим внимание, что 1 = 2^0; 4 = 2^2; 16 = 2^4; 32 = 2^5.
45 = 2^4 + 2^5 = 16 + 32 = 48
145 = 2^1 + 2^4 + 2^5 = 2 + 16 + 32 = 50
Значит, каждая цифра обозначает степень 2.
12345 = 2^1+2^2+2^3+2^4+2^5 = 2 + 4 + 8 + 16 + 32 = 62.
Электронная книга, нарисовать телефон.
ИНФОРМАТИКА ИНдюкФОРМА ТИК А
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(ReadInteger('n ='), -50, 50);
a.Println;
a.Transform(x -> -x);
a.Println;
end.