Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
1) Вот первая задачка:
uses crt;
var a, b, c : real;
begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.
2) А вот задачка 2
uses crt;
var s, s0 : real;
i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
begin
i:=i+1;
S:=S0*(1+0.05);
S0:=S+S0;
end;
WriteLn(' Day = ', i);
ReadLn;
end.
3) А вот и третья задачка подоспела....
uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
i: integer;
Sum: real;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
Sum:=Sum+A[i];
end;
WriteLn (' Massiv: ');
for i:=1 to n do
Write (A[i]:6:2,' ');
WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);
ReadLn;
end.
Ответ: Объяснение:
8E₁₆ = E*16⁰ + 8*16¹ = 142₁₀
123₈ = 3*8⁰ + 2*8¹ + 1*8² = 83₁₀
34₈ = 4*8⁰ + 3*8¹ = 28₁₀
101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀
13₄ = 3*4⁰ + 1*4¹ = 7₁₀
32₈ = 2*8⁰ + 3*8¹ = 26₁₀
1A₁₆ = A*16⁰ + 1*16¹ = 26₁₀
3B₁₆ = B*16⁰ + 3*16¹ = 59₁₀
350*200=70000 пикселей
65Кбайт=65*1024=66560 байт=66560*8=532480бит
532480/70000= 7.6 т.е 7 целых бит на пиксель
с помощью 7 бит можно закодировать 2^7=128 цветов