Ответ:
stroca = input()
summa = 0
while stroca != 'Спасибо.':
summa += 1
stroca = input()
summa += 1
print(summa)
Объяснение:
^ - степень.
Не забываем, что любое число в нулевой степени равно 1.
1) 1*2^2+0*2^1+1*2^0=4+0+1=5;
2)1*2^2+1*2^1+1*2^0=4+2+1=7;
3)7*8^0=7*1=7;
4)1*8^1+1*8^0=8+1=9;
5)2*8^1+2*8^0=16+2*1=16+2=18;
Вспомним как кодируются буквы в шестнадцатеричной системе счисления.
A=10. B=11. C=12. D=13. E=14. F=15;
6)1*16^1+10*8^0=16+10=26;
7)11*16^1+15*8^0=176+15=191;
8)9*16^1+12*16^0=144+12=156.
Рад был помочь!
знаю только первых два: 1024*17=17408
1024*1024*2=2097152
var
n:integer;
begin
readln(n);
case n mod 12 of
4:writeln('год крысы');
5:writeln('год коровы');
6:writeln('год тигра');
7:writeln('год зайца');
8:writeln('год дракона');
9:writeln('год змеи');
10:writeln('год лошади');
11:writeln('год овцы');
0:writeln('год обезьяны');
1:writeln('год петуха');
2:writeln('год собаки');
3:writeln('год свиньи');
end;
end.
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125