Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Reverse.ToArray; b.Println
end.
<u>Пример</u>
n= 13
7 -43 4 21 -25 62 -33 72 88 -26 -38 42 -64
-64 42 -38 -26 88 72 -33 62 -25 21 4 -43 7
Конте́кстное меню́ (англ. context menu) в графическом интерфейсе пользователя — меню, набор команд в котором зависит от выбранного, или находящегося под курсором в момент вызова объекта, а также состояния рабочей среды и программы, в которой этот объект находится — то, что в совокупности представляет собой контекст для этого меню. Вызов контекстного меню осуществляется как правило по нажатию «контекстной» (правой для правшей) кнопки мыши, специальной клавиши ( Menu ), или сочетания ( ⇧ Shift + F10 в Windows, или нажатие кнопки мыши при нажатой клавише Control в MacOS) на клавиатуре, а иногда — особыми жестами указывающего устройства (например — нажатием и удержанием).