Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>
Смотри, первым делом нам нужно узнать, какие 2 из этих 4 пунктов самые удаленные по отношению друг к другу. Дла этого расписываем пути из одной точки в другую для всех точек(абцд)
C-A=7
C-D=10
C-B=16
A-C=7
A-B=9
и т.д
Находим 2 самых удаленных друг от друга пункта
это
C-B
кратчайших путь из точки C в точку B-это CAB (16)
ответ 3)16
# Симметричные числа
input "Нижняя граница диапазона = ", a
input "Верхняя граница диапазона = ", b
if b<a then
t=a
a=b
b=t
end if
if a<10 then
print "Числа должны быть по крайней мере двухзначными"
goto Fin
end if
for i=a to b
s$=i
n=length(s$)
k=n\2
for j=1 to k
if mid(s$,j,1)<> mid(s$,n-j+1,1) then goto NonSimm
next j
print i
NonSimm:
next i
Fin:
end
<u>Тестовое решение:</u>
Нижняя граница диапазона = 954
Верхняя граница диапазона = 1423
959
969
979
989
999
1001
1111
1221
1331