Собственно чтобы представить число в двоичную систему счисления, необходимо разделить его на максимально целую часть, которая при умножении на 2 давала нам ближайшее значение к этому числу. Т.е.
число 243: если мы умножим 121 на 2: 121*2=242;Т.е. 121 умноженное на 2 и есть ближайшее число к 243, но им не является, т.к. остаток 1, мы записываем его ниже и делим число дальше. Вспоминаем деление столбиком и высчитываем (во вложении). Также, есть более быстрое и продуктивное высчитывание (во вложении). В обоих решениях выписывание остатков происходит в обратном порядке для верного ответа.
В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>