Переведём модуль данного числа в 2с/с:
1926 = 11110000110 в 2с/с
В 16-тиразрядной сетке модуль данного числа имеет вид:
0000 0111 1000 0110 - модуль от -1926
1111 1000 0111 1001 - обратный код (заменяем 0 на 1 и 1 на 0)
1111 1000 0111 1010 - дополнительный код (+1 к обратному) - именно так будет представлено число - 1926 в 2-хбайтовой сетке.
program raf105;
var x,a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
x:= a*a-b;
writeln('x = ',x);
end.
<em><u>Язык PascalABC</u></em>
Ответ:
#include <iostream>
using namespace std;
int main()
{
double x, y, z, n;
setlocale(LC_ALL, "Russian");
cout << "Введите X, Y, Z: ";
cin >> x >> y >> z;
n = __max (x + y + z, x * y * z) / __min (x + y + z, x * y * z);
cout << "N = " << n;
}
Var ma:array[1..10,1..6] of integer;
i,j,k:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 6 do
begin;
ma[i,j]:=random(2);
write(ma[i,j]:4);
end;
end;
for j:=1 to 6 do
begin;
i:=4;
if ma[i,j]=0 then inc(k);
end;
writeln;
write('Result:',k);
<span>end.</span>
var x,y:real;
begin
x:=1;
repeat
y:=sin(x);
if y>0 then writeln('x = ',x,' y = ',y:0:3);
x:=x+1
until x=11;
writeln;
x:=1;
while x<11 do
begin
y:=sin(x);
if y>0 then writeln('x = ',x,' y = ',y:0:3);
x:=x+1
end
end.