Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
1. <span>2) МАКСИМ
2. </span><span>4) КСЕНИЯ.
3. </span><span>1) ИРИНА
4. </span><span>1) Верблюд
5. </span><span>2) Кенгуру
6. </span><span>4) Страус
7. </span><span>1) ЖАРА
</span>
1. При использовании 32-символьного алфавита для хранения одного символа требуется log(2)32 = 5 бит (2^5 = 32).
Количество символов в сообщении = 120/5 = 24
2. При использовании алфавита из 64 знаков для кодирования одного знака необходимо log(2)64 = 6 бит.
Объем шифровки = 110*12*6 бит = 110*12*6 / 8 байт = 990 байт
Integer - 20,2,32,16,23,1,2 (целые числа)
Date - это дата <span>формат (MM-DD-YYYY)</span><span>
String - это символьный тип, это слова\буквы\цифры которые являются символами
Boolean - true\false (правда, не правда)
</span>
s = сумме четных от 5 до 18 = 6+8+10+12+14+16+18 = 84