ответ: copyright (копирайт).
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!
</em>begin
Writeln('x x^2 x^3');
var x:=0.1;
while x<=1.01 do begin
Writeln(x:4:2,x*x:7:3,x*x*x:10:6);
x+=0.05
end
end.
<u>Результат</u>
x x^2 x^3
0.10 0.010 0.001000
0.15 0.023 0.003375
0.20 0.040 0.008000
0.25 0.063 0.015625
0.30 0.090 0.027000
0.35 0.123 0.042875
0.40 0.160 0.064000
0.45 0.203 0.091125
0.50 0.250 0.125000
0.55 0.303 0.166375
0.60 0.360 0.216000
0.65 0.423 0.274625
0.70 0.490 0.343000
0.75 0.563 0.421875
0.80 0.640 0.512000
0.85 0.723 0.614125
0.90 0.810 0.729000
0.95 0.903 0.857375
1.00 1.000 1.000000
Настоящий вид вывода показан во вложении.
90(10) = 5A(16) = 0101 1010(2) в восьмибитном представлении
-55(10) = -37(16) = -0011 0111(2) в прямом коде. Для хранения отрицательных чисел используется модифицированный обратный код.
Обратный код получается инверсией всех битов.
-0011 0111(2) = 1100 1000(2) в восьмибитном представлении (обратный код)
Модифицированный код получается из обратного путем прибавления единицы в младшем (левом) разряде числа.
1100 1000(2) = 1100 1001(2) в восьмибитном представлении (модифицированный обратный код)
1100 1001(2) = С9(16) = 0хС9
Var
z,x1,x2,y1,y2:real;
begin
writeln('Введите x1 и y1');
readln(x1,y1);
writeln('Введите x2 и y2');
readln(x2,y2);
z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2)));
writeln(z);
<span>end.</span>
Истинное суждение-мой компьютер персональный
ложное суждение-мой клмпьютер летит