Ответ:
var
a, x : real;
begin
readln(a,x);
writeln(((sin(sqrt(Power(a,3))+x)))/(14+a*x))
end.
Var a,b,h,x,x1,x2:real;
function F(x:real):real;
begin
F:=cos(x)/sin(x)+1;
end;
begin
writeln('Функция: F(x)=ctgx+1');
write('Введите крайние точки отрезка: '); readln(x1,x2);
write('Введите шаг: '); readln(h);
writeln('| x | F(x) |');
writeln('_________________');
if x1>x2 then begin
a:=x2; b:=x1; end
else begin
a:=x1; b:=x2; end;
x:=a;
while x<=b do
begin
writeln('|',x:7:3,'|',f(x):7:3,'|');
x:=x+h;
end;
end.
Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.
101110(2) ⇒
= 1*2^5 + 0*2^4 +
+ 1*2^3 + 1*2^2 + 1*2^1 + 0*2^0 = 32 + 0 + 8 + 4 + 2 + 0 = 46
1234 (5) ⇒
= 1*5^3 + 2*5^2 + 3*5^1 + 4*5^0 =
= 125 + 50 + 15 + 20 = 210
D = 13 ; E = 14 ;
DE(16) ⇒
= 13*16^1 + 14*16^0 = 208 + 14 = 222
var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
end
else
begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;<span>end.</span>