Робот оснащён двумя отдельно управляемыми колёсами, радиус каждого из колёс робота равен 5 см. Левым колесом управляет мотор А, правым колесом
управляет мотор В. Колёса напрямую подсоединены к моторам (см. схему
робота).
направление
вперед
А B
Схема робота
Робот проехал участок прямолинейной трассы. При этом оси моторов робота
повернулись на 2880°.
Расстояние между центрами колёс робота равно 20 см. Масса робота равна
2 кг. При расчётах примите пx 3.
Определите, какой длины был прямолинейный участок трассы. ответ дайте в
сантиметрах. В ответ запишите только число.
var
n, m, max, k, i: integer;
ar: array of integer;
function CountOfDel(n: integer): integer;
var
i, k: integer;
begin
if n>0 then
begin
for i := 1 to n do
if n mod i = 0 then inc(k);
end
else
for i:= n to -1 do
if n mod i = 0 then
inc(k);
CountofDel := k;
if n=0 then
CountofDel:=0;
end;
begin
readln(n, m);
k := 0;
max := 0;
for i := n to m do
begin
if CountOfDel(i)=0 then
begin
writeln('0');
exit;
end;
if CountOfDel(i) > max then
begin
k := 1;
setlength(ar, k);
ar[k - 1] := i;
max := CountOfDel(i);
end
else
if CountOfDel(i) = max then
begin
inc(k);
setlength(ar, k);
ar[k - 1] := i;
end;
end;
for i := 0 to k - 1 do
write(ar[i]:4);
end.
Пример ввода:
1 10
Пример вывода:
6 8 10