Для каждого из перечисленных ниже десятичных чисел построили двоичную запись. укажите число, двоичная запись которого содержит ровно 4 единицы. 15 21 32 35

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.