program
zadacha;
var
a,b,x,y,f:
real;
begin
writeln('vvedite
a,b,x');
readln(a,b,x);
y:=(sqr(a+b)*x)
/ (sqrt(sqr(a)+sqr(b)));
<span>f:=sqr(cos(y))
+ ((a-b)-a*x) / (y*b);</span>
writeln('y
=',y:6:2);
writeln('f(y)
=',f:6:2);
end.
Var
a:Array [1..20] Of Integer;
i:Integer;
k:Integer;
Begin
write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Read(a[i]);
<span>End.</span>
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
Пристрої введення це - клавіатура , мишка та вебкамера