function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
<span>a = int(input("a = "))
sise = <span>0
</span>for i in range(1,a+1,2):
print(i)
sise += i
print("Suma ",sise)</span>
Ответ Б, так как в двоичной системе счисления только 0 и 1
(x>0) and (x<5) это будет на языке паскаль
Var n,k,s:integer;
begin
Writeln ('вводи числа, по окончанию введи 9999');
while n<9999 do
begin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln ('кол-во=',k);
writeln ('сумма=',s);
end.