1)
Program chetnost;
Uses Crt
const arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }
{туда напишешь любые целые}
{которые препод укажет}
var i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to 9 do sum:=sum+arr[i];
if (sum mod 2) =0 then writeln('Их сумма чётное число ')
else writeln('Их сумма нечётное число ')
end.
2) Program Nabor;
Uses Crt
const n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }
const n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора }
{туда напишешь любые целые}
{которые препод укажет}
var sum1,sum2,i: integer;
begin
clrscr;
sum1:=0; sum2:=0;
for i:=1 to 8 do
begin
sum1:=sum1+n1[i];
sum2:=sum2+n2[i]
end;
if (sum1=sum2) writeln('Стоимость наборов одинакова ');
if (sum1<sum2) then writeln('Первый набор дешевле ')
else writeln(' Второй набор дешевле ')
end.
2 задача
Количество символов используемых для кодирования номера составляет:
30 букв + 10 цифр = 40 символов. Количество информации несущий один символ равен 6 бит (2^I=40, но количество информации не может быть дробным числом, поэтому берем ближайшую степень двойки большую количества символов 2^6=64).
Мы нашли количество информации заложенное в каждом символе, количество символов в номере равно 7, следовательно 7*6=42 бит
Каждый номер равен 42 битам информации, но по условию задачи каждый номер кодируется одинаковым и минимально возможным количеством байт, следовательно нам необходимо узнать сколько байт в 42 битах. Если разделить 42 на 8 получится дробное число, а нам необходимо найти целое количество байт на каждый номер, поэтому находим ближайший множитель 8-ки который превысит количество бит, это 6 (8*6=48). Каждый номер кодируется 6 байтами.
Для хранения 50 автомобильных номеров потребуется: 6*50=300 байт