<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=10;
var a:=(x+6)*Sqr(x)-Sqrt(x-1);
var b:=Abs(x-15)*Sqr(x+1)/242;
Writeln('a=',a,', b=',b,', a-b=',a-b)
end.
<u>Результат</u>
a=1597, b=2.5, a-b=1594.5
3+2×8+0×64+2×512=3+16+1024=1043
На Pascal
1 А - С[7] Б- T:array [1..43] of Integer; В - G1:array[1..123] of Integer; Г- K[44] Д- X[i+6] Е- P:array [1..23] of Integer;
2- A- K:array [1..25] of Integer;
for k:=1 to 25 do a[k]:=random(-30;250);
Б-
5А в 16= 5*16^1+10*16^0= 90 в десятой степени снизу.