<span>1)
a := 3
b := 4
a := 2*a+3*b
b := 2/a*b
b = 0.444444444444444
b хотят как целое то оно равно 0.
2)
</span><span>a:=3
b:=8
a:=b-a*2
b:=24/a*4
b = 48
в этом примере b уже целое.</span>
Если говорить о точном дополнении для двоичного числа, то оно получается путём:
1. Представить данное число в двоичном виде.
2. Инвертировать каждый разряд. (0 станет 1, а если был 1, то станет 0).
3. Прибавить к полученному числу 1.
Точное дополнение числа в сумме с самим числом даёт 0.
Найдём точное дополнение к числу 98.
1) 0110 0010
2) 1001 1101
3) 1001 1110
Число 1001 1110 - есть дополнение числа 98. Представлено в однобайтовом виде. (задействовано 8 бит). Старший знаковый бит "1". Число соответствует отрицательному числу -98. Да, действительно, дополнение к положительному числу 98 есть отрицательное число -98).
Найдём точное дополнение к числу -48
1) Представим в двоичном виде.
1101 0000
2) Инвертируем поразрядно
0010 1111
3) Прибавим 1
0011 0000.
Число 0011 0000 есть дополнение числа -48. Старший знаковый бит "0". Число соответствует положительному числу 48. Да, действительно, дополнение к отрицательному числу -48 есть положительное число 48).
Program one;
var a,b,c:real;
begin
Readln(a,b,c);
writeln((b+sqrt(b*b+4*a*c))/2*a - a*a*a*c+1/(b*b))
end.
program two;
var a,b,c,d:real;
begin
Readln(a,b,c,d);
writeln((a/c)*(b/d)- (a*b-c)/(c*d))
end.
program three;
var x,y:real;
begin
Readln(x,y);
writeln((Sin(x)+cos(y))/(Cos(x)-sin(y))*tan(x*y))
end.
program four;
var x,y:real;
begin
Readln(x,y);
writeln((x+y)/(y+1)-((x*y)-12)/(34+x))
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Сколько точек будете вводить?');
for var i := 1 to n do
begin
var x := ReadReal;
Writeln(x:10:5, Sin(Sqr(x) + 1.67 * Pi):20:15)
end
end.
Чтобы получить вид таблицы, после ввода числа точек нужно в следующей строке вводить весь набор х сразу и через пробел