107/2(остаток 1)=53/2(остаток 1)=26/2(остаток 0)=13/2(остаток 1)=6/2(остаток 0)=3/2(остаток 1) 1=1101011
Var
n:integer;
a:real;
begin
writeln('введите число и степень');
readln(a,n);
writeln('степень : ', exp(ln(a)*n));
writeln('корень: ',exp(ln(a)*(1/n)));
end.
var a:integer; k:integer;
begin
k:=0;
while k<=5 do
begin
write('a='); read (a);
if (a mod 2=0) then
writeln(sqr(a));
k:=k+1;
end;
end.
111111110,,,,,,,,,,,,,,,,,,,,,
# # Код на ruby 2.2.3p173
k = 0
begin
k = k + 1
k = k * 2
end until k > 10
p k
Ответ 14