var simple: List<integer> := new List<integer>; i, n, p: integer; m: longint;
begin read(n); for i := 2 to n do begin m := 1; foreach s: integer in simple do m := m * i mod s; if m > 0 then begin simple.Add(i); // write(i, ' '); end; end; writeln();
foreach s: integer in simple do begin if Math.Pow(2, s) - 1 <= longint.MaxValue then begin m := round(Math.Pow(2, s) - 1); if (m <= n) and simple.Contains(m) then write(m, ' '); end; end; end.
1а) Почти любые, даже в играх есть карты 1б) В данном случае похоже подразумевается навигатор по картам. Т.е. некое ПО позволяющая работать с моделями карт, создавать разные виды, передвигаться по картам и тд 1в) Собственно карты разных типов и маштабов, объекты на картах с данными об этих объектах, дороги как связи и данные о них тоже, данные о транспорте и тд 1г) С векторными изображениями легче работать в плане маштабирования, изменения, растягивания и тп. Потому все изображения приводятся к векторному типу частично или полностью.
2) Как пример возьмем ЯндехКарты. Нахождение обьекта по адресу, нахождение по текущему местоположению если есть чем определить, выдача данных об обьекте (как набор данных об организациях которые там находятся), проложение маршрута от точки к точке, навигация пробок, навигация по фото местности (панорама), измерение расстояния некой траектории (линейка) и тд
3) Быстрее всего найти по названию поиском, тут опорными точками могут область и район, если вдруг объектов с таким названием больше одного Если искать зрительно, то легче всего ориентируясь по водным объектам и горам, возможно лесам, если они показаны. Другим городам и областям. Но для этого надо знать примерно карту
System.Collections.Generic,
System;
var
simple: List<integer> := new List<integer>;
i, n, p: integer;
m: longint;
begin
read(n);
for i := 2 to n do
begin
m := 1;
foreach s: integer in simple do
m := m * i mod s;
if m > 0 then begin
simple.Add(i);
// write(i, ' ');
end;
end;
writeln();
foreach s: integer in simple do
begin
if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
m := round(Math.Pow(2, s) - 1);
if (m <= n) and simple.Contains(m) then
write(m, ' ');
end;
end;
end.