Ответ:
Windows
Объяснение:
Вроде он, ответ должен состовлять не менее 20слов, бесит(
инженер-проектировщик их чертит
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,a,b):=ReadReal3('Введите x,a,b:');
var y:=Sqr(Cos(x**3))-x/Sqrt(a*a+b*b);
var w:=Sqrt(x*x+b)-b*b*Sin(x+a)**3/x;
Writeln('y=',y,', w=',w)
end.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.