Перевести в двоичную систему счисления десятичные числа : 27/10: 104/10

27/10 = 11011/1010 104/10 = 1101000/1010

//pascalabc.net 3.2 сборка 1318 //1 uses   graphabc;   var   a,h,x,y: integer;   c: char; begin writeln('read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then   begin     a: =random(200);     writeln('длина ребра=',a,', объём=',power(a,3));   end else   begin     readln(a);     writeln('объём=',power(a,3));   end; x: =windowwidth div 2; y: =round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end. пример ввода: n 16 пример вывода: объём=4096 //2 var   x,p: integer; beginwrite('x: '); readln(x); write('p: '); readln(p); if not(odd(x)) then writeln('кратно 2'); if x mod 3=0 then writeln('кратно 3'); if x mod p=0 then writeln('кратно ',p); end. пример ввода: 18 6 пример вывода: кратно 2 кратно 3 кратно 6