КОБол................................................................
var
a : integer;
begin
write('введите a=');
readln(a);
writeln('a*8=a*2*2*2=', a*2*2*2);
writeln('a*10=a*5*2*1*1=', a*5*2*1*1);
end.
===== PascalABC.NET =====
begin
var a := ArrGen(90, p -> Sqrt(p), 10);
a.Println
end.
1) 111111
2) 111
..............
var
y: <em>real</em>;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(<em>y * Pi / 180</em>), 3));
<span>end.</span>