ЕСЛИ логическое выражение (X>0) И (X • 1. Установить курсор в D2, с мастера функций выбрать категорию Логические и функцию ЕСЛИ
• ( В диалоговом окне Аргументы функции задать необходимые параметры: логическое выражение C2=ИСТИНА, в строке значение, если истина А2+В2, в строке значение, если ложь А2-В2)
• 2. Полученное значение скопировать в остальные ячейки столбца D
2. 3. Измените имеющийся график для диапазона D2:D22
(Наведите указатель мыши на график и правой клавишей вызовите контекстное меню, выберите командуВыбрать данные и выберите диапазон D2:D22)

Кодирование информации

Компьютер может обрабатывать только информацию, представленную в числовой форме. Обработка информации в ЭВМ основана на обмене электрическими сигналами между различными устройствами машины. Эти сигналы возникают в определенной последовательности. Признак наличия сигнала можно обозначить цифрой 1, признак отсутствия - цифрой 0. Таким образом, в ЭВМ реализуются два устойчивых состояния. С определенных наборов цифр 0 и 1 можно закодировать любую информацию. Каждый такой набор нулей и единиц называется двоичным кодом. Количество информации, кодируемое двоичной цифрой - 0 или 1, называется битом. Термин «бит» переводится, как «двоичная цифра». Один бит информации - количество, посредством которого выделяется одно из двух равновероятных состояний объекта (значение 0 или 1).

var

 n, max, count, contrl, max2: integer;

begin

 contrl := 0;

 max := 0;

 Writeln('Введите числа: ');

 Readln(n);

 while n <> 0 do

 begin

   Inc(count);

   if n>max then begin max2:=max; max:=n end

   else if n > max2 then max2 := n;

   Read(n);

 end;

 max2*=max;

 Writeln('Введите контрольное значение: ');

 Read(contrl);

 Writeln('Получено: ', count, ' чисел');

 Writeln('Получено контрольное значение: ', contrl);

 Writeln('Вычисленное контрольное значение:: ', max2);

 if contrl = max then Writeln('Контроль пройден')

 else Writeln('Контроль не пройден');

end.