50 div 9 = 5
-10 mod (-5) = 0
round (9.5) = 10
trunc (15.6) = 15
Объяснение:
50 / 9 = 5 целых + 5 остаток
div - результат целочисленного деления
50 div 9 = 5
-10 / (-5) = 2 целых + 0 остаток
mod - остаток от целочисленного деления
-10 mod (-5) = 0
round - округленное до ближайшего целого, если вещественное число находится посередине между двумя целыми, то округление происходит к ближайшему чётному (round (2,5) = 2, round (3,5) = 4)
round (9.5) = 10
trunc - возвращает целую часть вещественного числа
trunc (15.6) = 15
var
a, b, pS, pR : double;
begin
writeln('Введите числа :');
readln(a, b);
pS := (a+b)/2;
pR := abs(a-b)/2;
if (trunc(a*b) mod 2= 0) then
if a > b then begin
a := pS;
b := pR;
end
else begin
a := pR;
b := pS;
end
else
if a < b then begin
a := pS;
b := pR;
end
else begin
a := pR;
b := pS;
end;
writeln('a=', a:2:2);
writeln('b=', b:2:2);
end.