3. "Програмуйте в майбутньому часі" - "підготуйте" вашу програму до змін які можуть мати місце у майбутньому. Іншими словами - коли ви захочете додати функціональності до вашого застосунку, то краще б його не переписувати з самого початку а тільки внести мінімальні зміни які стосуються конкретно нової функціональності. Тому принцип повторного використання і є дуже важливим: застосунок "будується" з будівельних блоків якими і є ці повторно використовувані частинки
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63
Где N количество символов.
Т.к в первой букве слова они используют только 2 буквы , то i = 1 (бит)
В оставшихся девяти позициях используются все 48 символов .
По той же формуле i=6 ( округляем всегда в большую сторону)
Получается
1+(6*9)=55 бит
Ответ: 55 бит
1) 110011; 63; 51; 33
2) 11010101; 325; 213; D5
3) 1001010010; 1122; 594; 252
4) 1011111; 137; 95; 5F
5) 11101; 35; 29; 1D
6) 10010110; 226; 150; 96
7) 101011001; 531; 345; 159
8) 11010110; 326; 214; D6