Реализация двоичной системы счисления для кодирования информации намного проще, чем применение других способов.
Действительно, удобно кодировать информацию в виде последовательности нулей и единиц, если представить эти значения как два возможных устойчивых состояния электронного элемента.
Эти состояния легко различать. Недостаток двоичного кодирования – длинные коды. Но в технике легче иметь дело с большим количеством простых элементов, чем с небольшим числом сложных.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (k, p, n) := (0, int64(1), ReadInteger('n ='));
var t: integer;
for var i := 1 to n do
begin
Read(t);
if t mod 3 = 0 then
begin
p *= t;
Inc(k)
end
end;
Write('Произведение ', k, ' элементов равно ', p)
end.
<h2>Пример</h2><h3>n = 7</h3><h3>53 -28 36 174 -600 45 -93</h3><h3>Произведение 5 элементов равно 15728904000</h3>
Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
Включение компьютера - нажатие внизу слева кнопки окошек (4 квадрата) или же на клавиатуре кнопка (четыре квадрата) возле пробела