ЭКРАН.................................................
Девушка потратила в магазине 1458.04 рубля
Реализация двоичной системы счисления для кодирования информации намного проще, чем применение других способов.
Действительно, удобно кодировать информацию в виде последовательности нулей и единиц, если представить эти значения как два возможных устойчивых состояния электронного элемента.
Эти состояния легко различать. Недостаток двоичного кодирования – длинные коды. Но в технике легче иметь дело с большим количеством простых элементов, чем с небольшим числом сложных.
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
Если в байтах: 112986270
если в мега байтах: 107.7521038