в системе счисления с основанием 6
вес разрядов (6)(1)
тогда 40(с основанием 6) = 24 + 0
41(с основанием 6) = 24 + 1
в ответе два числа 24, 25
2) оканчивается на 101
101 = 5
1101 = 13
10101 = 21
следующее уже больше 11101 = 29
3) в троичной системе веса разрядов (9)(3)(1)
21 в троичной системе = 6+1 = 7 в десятичной
121 = 9+6+1 = 16
221 = 18+6+1= 25
следующее уже больше 25-ти
321 = 27+6+1=34
Что-то меня глючит. Я же вроде как отвечал...
dim years
years = inputbox("Введите ваш возраст")
if years = 1 then msgbox("Мне 1 год") end if
if years = 2 then msgbox("Мне 2 годa") end if
if years = 3 then msgbox("Мне 3 годa") end if
if years = 4 then msgbox("Мне 4 годa") end if
if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then
dim s
s = "Мне "+cstr(years)
if (years mod 10 = 1) then s = s + " год" end if
if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if
if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if
if (years mod 10 = 0) then s = s + " лет" end if
msgbox(s)
end if
VBS
Чем больше глубина цвета, т.е. чем больше битов отводится на кодирование одного цвета , тем больше цветов в палитре .
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
Var
a,b,c,s,k,y:real;
begin
Read(a,b,c);
s:=a+Sqrt(a+b*b*b)/c;
k:=Sqr(s*s)-Sqrt(Abs(a*b*c));
y:=a*s+Sqrt(k)+s/(b*c);
Writeln(y)
end.
Пример
-7 2 9
95.1778833805713
