ПРОШУ ОБЪЯСНИТЕ ПОЖАЛУЙСТА НА ЛЮБОМ ЯЗЫКЕ
дано натуральное число x.вычислите длину наименьшего отрезка между точками x, a и b
Ответы
Ответ дал:
0
Ответ:
Объяснение:
var
x, a, b:integer;
ras_x_a, ras_x_b, ras_a_b:integer;
ras_min:integer;
begin
x:=5;
a:=1;
b:=8;
ras_x_a:=abs(x-a);
ras_x_b:=abs(x-b);
ras_a_b:=abs(a-b);
if ((ras_x_a <=ras_x_b) and (ras_x_a <=ras_a_b)) then
ras_min:=ras_x_a
else
if ((ras_x_b <=ras_x_a) and (ras_x_b <=ras_a_b)) then
ras_min:=ras_x_b
else
if ((ras_a_b <=ras_x_a) and (ras_a_b <=ras_x_b)) then
ras_min:=ras_a_b;
writeln(ras_min);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад