// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
Римская система счисления - частично позиционная, и по правилам этой системы счисления предложенное число можно представить так:
DCXLI = 500 + 100 - 10 + 50 +1 = 641
Однако, можно было и не производить вычисления. Так как предложенное число нечетное, а в списке вариантов ответов присутствует только одно нечетное число.
Ответ: Б
1)сколько всего букв и цифр используется?26+10(цифры)=36, ближайшая степень двойки большая 36-это 64, то есть два в 6. то есть шесть бит занимает каждый символ пароля.
2)в пароле 9 символов, 9*6=54 бит нужно для хранения одного пароля
3)54бит/8=7байт нужно для хранения одного пароля(в одном байте 8 бит)
4)значит сто паролей занимают 700 БАЙТ
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
Якщо всі підписи неправильні, то потрібно взяти кульку з коробки, на якій написано "Одна червона, она зелена". Обидві кульки будуть однакового кольору. Далі, у коробці, колір якого витягнули, також будуть дві кульки однакового кольору. Кульки різного кольору будуть у третій коробці.