с маленькой задачей по информатике на питоне

---

Задача на тему ": Программирование циклов с заданным условием продолжения работы (цикл с предусловием"

Сама задача :

Найти произведение чисел, оканчивающихся на 15 и кратных 3. Числа вводятся с клавиатуры до тех пор, пока не будет введен 0.
(Паскаль)

1110001100(в двоичной системе)

Объяснение:

256+652=908

908:2=454(ост.0)

454:2=227(ост.0)

227:2=113(ост.1)

113:2=56(ост.1)

56:2=28(ост.0)

28:2=14(ост.0)

14:2=7(ост.0)

7:2=3(ост.1)

3:2=1(ост.1)

1110001100(в двоичной системе) =908(в десятичной)

Чтобы из десятичной системы число перевести в двоичную систему, то нам нужно будет делить число на 2,и так каждый раз, до тех пор, пока в ответе не будет 1

Далее собираем вот этот вот последний ответ 1,и все остатки(кстати, собираем мы это все снизу вверх), и получаем наше двоичное число

Удачи!

Объяснение:

1.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 while (i<=n) do begin

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 end;

 writeln(count);

 readln;

end.

2.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 repeat

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 until (i > n);

 writeln(count);

 readln;

end.