Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.
Нужно сделать битовый сдвиг влево на 4 бита
На Си:
A << 4;
было число 5 = 101
<span>будет 5*16 = 1010000 </span>
<span>program chik;
var a,b:array[1..1000]of longint;
c:array[1..1000,1..1000]of longint;
n,m,i,j:longint;
begin
read(n,m);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to m do
begin
read(b[i]);
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
c[i,j]:=a[i]+b[j];
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span></span>
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadInteger2('Введите два целых числа через пробел:');
if (a+b).IsEven then Writeln(a*b)
else Writeln(a/b)
end.