Использовать Робот
алг
нач
нц пока слева стена
закрасить
вниз
кц
закрасить
влево
нц пока сверху стена
закрасить
влево
кц
кон
Полужирное, обычное (прямое), курсив
E Г Э 2 0 1 3 ----> всего 7 символов,
i бит, чтобы закодировать каждый символ: 2^i =7 (ближайшая к 7 (бОльшая) степепень двойки =8) 2^i=8 ---> i=3 бита для кодирования одного символа.
Пароль из 15 символов:
3*15=45 бит = 45:8 = 6 байт (целое количества байт)
Всего 25 паролей:
6*25=150 байт
ответ 150 байт
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа через пробел:');
var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
var (s2,p2):=(a+b,a*b);
if s1=s2 then Writeln('Сумма верна')
else Writeln('Сумма не верна, ',s2);
if p1=p2 then Writeln('Произведение верно')
else Writeln('Произведение не верно, ',p2)
end.
<u>Пример</u>
Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5
Этот суп рассольник
р с с л и н к а о ь