64 это 2 в 6 степени.Один символ весит 6 бит
I=K*b 6*150 =900
Ответ 900
<u><em>Microsoft QBasic</em></u>
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION
N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
<span>Дисководы гибких магнитных дисков хранят данные примерно так же, как и жесткие диски - путем изменения магнитной полярности металлических частичек на их поверхности. Здесь сходство заканчивается. Первое отличие состоит в том, что дискеты можно вынимать из дисководов, то есть теоретически они предлагают неограниченное хранилище данных любому желающему. Но ограниченная емкость дискет (1, 44 МВ в отличие тысяч мегабайтов жестких дисков) уменьшает их полезность. (это дискета)</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
// Вводим строку с клавиатуры, приводим буквы к строчным,
// разбиваем на слова по пробелу и помещаем их в массив aW
var aW:=ReadlnString('->').ToLower.ToWords;
// Пропускаем массив через фильтр, оставляющий слова, содержащие
// русскую букву "а" и подсчитываем, сколько слов прошло через него.
// Полученное количество выводим.
Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.
Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4