45 в двоичной системе 101101. делим 45: 2=22 и в остатке 1 делим 22: 2=11 и в остатке 0 делим 11: 2=5 и в остатке 1 делим 5: 2=2 и в остатке 1 делим 2: 2=1 и в остатке 0 остаётся 1, теперь собираем остатки справа налево получим 101101.
var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.
var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.
Ответ дал: Гость
Var m: array[1..15] of real; i: integer; n: real; begin randomize; for i: =1 to 15 do begin m : =random(20)-20; if( m< 0) then begin m: =sqr(m); end;
Популярные вопросы