1011000110₂
<--------------- проще идти от конца к началу
0×2⁰+1×2¹+1×2²+0×2³+0×2⁴+0×2⁵+1×2⁶+1×2⁷+0×2⁸+1×2⁹
Я дивився в свій зошит і там шукав слова і знайшов це є сканер
Program Usloviya;
var a:integer;
begin
readln (a);
if (a>0) then write('Число положительное') ;
<span>end. </span>
1. Малыш и Карлосон. У Карлосона отсутствует пропеллер.
2. Баба яга. У дома отсутствуют куриные ноги.
3. Не помню название сказки. У кота отсутствуют сапоги.
4. Айболит. Отсутствует медицинская шляпа.
Program pr;
Var
a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Делится на 2');
if a mod 3=0 then writeln('Делится на 3');
if a mod 5=0 then writeln('Делится на 5');
<span>end.</span>