Стрелочки, имеющиеся справа от некоторых позиций меню, означают наличие для этих пунктов меню дополнительных подменю. Такое меню часто называют каскадным<span>.</span>
const n=30;
var a:array[1..n] of integer;
i,k:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(61)-30;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=2 to n do
if a[i] > a[i-1] then k:=k+1;
writeln('k = ',k);
end.
Пример:
Исходный массив:
27 -16 19 23 12 3 25 6 -3 -22 12 13 22 -8 -3 7 -1 -20 -28 -20 25 22 13 -8 -3 -17 14 22 11 -9
k = 13
Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
<em><u>Монитор — это устройство оперативной визуальной связи пользователя с управляющим устройством и отображением данных передаваемых с клавиатуры, мыши или центрального процессора.</u></em>
<em><u>Клавиату́ра — комплект расположенных в определённом порядке клавиш для управления каким-либо устройством или для ввода данных. Как правило, кнопки нажимаются пальцами рук.</u></em>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Ex211a=class
public
constructor(fio,phone:string);
begin
var n:=Max(fio.Length,phone.Length);
Writeln((n+2)*'*');
Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
Writeln((n+2)*'*')
end;
end;
type
Ex211b=class
public
constructor;
begin
var n:=ReadInteger('Введите целое число:');
Writeln('Результат равен ',n+10)
end;
end;
begin
new Ex211a('Иван Иванов','7-841-2666666');
new Ex211b
end.
<u>Пример</u>
***************
*Иван Иванов *
*7-841-2666666*
***************
Введите целое число: 18
Результат равен 28
