Задать ученику пример на вычитание и проверить правильность ответа. выбрать для примера случайные числа, предусмотреть, что результат не должен быть отрицательным. язык паскаль

Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется всего два символа 0 и 1. Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1).

Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком.

Какой длины должен быть двоичный код, чтобы с его можно было закодировать васе символы клавиатуры компьютера?

Достаточный алфавит

В алфавит мощностью 256 символов можно поместить практически все символы, которые есть на клавиатуре. Такой алфавит называется достаточным.

Т.к. 256 = 28, то вес 1 символа – 8 бит.

Единице в 8 бит присвоили свое название - байт.

1 байт = 8 бит.

Таким образом, информационный вес одного символа достаточного алфавита равен 1 байту.
Для измерения больших информационных объемов используются более крупные единицы измерения информации:

Единицы измерения количества информации:

1 байт = 8 бит

1 килобайт = 1 Кб = 1024 байта

1 мегабайт = 1 Мб = 1024 Кб

1 гигабайт = 1 Гб = 1024 Гб

Информационный объем текста

1) var n, odd, even, i, a: integer;
begin
odd:=0;
even:=1;
writeln ('Введите число N');
read(N);
writeln('Введите N целых чисел');
for i:=1 to N do
begin
read(a);
if (a mod 2 = 0) then even:=even*a
else odd:=odd+a;
end;
writeln('Произведение чётных чисел равно ', even);
writeln('Сумма нечётных чисел равна ', odd);
end.

2)var N, plus, minus, i: integer;
a: real;
begin
plus:=0;
minus:=0;
writeln ('Введите число N');
read(N);
writeln('Введите N чисел');
for i:=1 to N do
begin
read (a);
if(a > 0) then plus:=plus+1;
if (a < 0) then minus:=minus+1;
end;
writeln('Количество положительных чисел равно ', plus);
writeln('Количество отрицательных чисел равно ', minus);
if (plus<minus) then writeln ('Отрицательных больше чем положительных на ', minus-plus);
if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus);
if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных');
end.