Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 1
Регистрация: 15.11.2009
Сообщений: 7

Последовательность

17.11.2009, 20:00. Показов 1741. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вася продолжает изобретать последовательности. Сегодня в школе его познакомили с операцией возведения в степень, и Вася придумал новую последовательность. Сначала он пишет на доске натуральное число A. Каждое следующее число, выписанное им на доске, будет равно степени с основанием A и показателем, равным предыдущему числу. Другими словами, последовательность будет выглядеть так:
x[1] = A,
x[k + 1] = Ax[k], k > 0
После этого он решил узнать элемент этой последовательности с минимальным номером, который бы делился на данное число N. Поскольку числа на доске могут быть довольно большими, без вашей помощи ему не обойтись.
Формат входных данных
Вводятся два натуральных числа A, N (1 ≤ A ≤ 109, 1 ≤ N ≤ 109).
Помогите плиз препод убьет если не сделаю
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.11.2009, 20:00
Ответы с готовыми решениями:

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность
Написал программу var a,c:array of integer; count,i,p,u: integer; begin for i:=1 to 10 do begin read(p); a:=p; end;

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы
Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

Вставить в последовательность число так, чтобы последовательность осталась неубывающей.
Дана последовательность действительных чисел а1<=а2...<=an. Вставить в нее действительное число b так, чтобы последовательность осталась...

2
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
17.11.2009, 20:05
А преподаватель хотя бы знает, что это задача с ТЕКУЩЕЙ Открытой олимпиады по программированию? Ссылка для остальных: http://olympiads.ru/zaoch/2009... ndex.shtml. Не хочу флудить и читать нравоучения, но всё же это нечестно просить помощи у других...

Не по теме:

P.S. Я сам в ней учавствую

0
0 / 0 / 1
Регистрация: 15.11.2009
Сообщений: 7
17.11.2009, 20:08  [ТС]
Лучший ответ Сообщение было отмечено OcMan4ik как решение

Решение

да мы в ней не участвуем полностью он нам дает задание и чтобы не проверять использует этот сайт я написал программу но она работает на половину

Добавлено через 46 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program h1;
var a,b,c,d,g,i,j,z,v:longint;
    f1,f2:text;
    mas1:array [1..32000] of integer;
function n1(c:integer;d:integer):integer;
var p,i:integer;
begin
p:=1;
 for i:=1 to d do
  begin
   p:=p*c;
  end;
n1:=p;
end;
begin
assign (f1,'h.in');
reset(f1);
read(f1,a,b);
close(f1);
assign (f2,'h.out');
rewrite(f2);
mas1[1]:=a;
for i:=1 to 32000 do
 begin
  c:=mas1[i];
  d:=c+1;
  g:=n1(c,d);
  mas1[i+1]:=g;
 end;
for i:=1 to 32000 do
 begin
  z:=mas1[i];
  if z mod b=0 then
   begin
    write(f2,z);
    exit;
   end
  Else
   begin
    v:=0;
    write(f2,v);
   end;
end;
close(f2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.11.2009, 20:08
Помогаю со студенческими работами здесь

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли последовательность упорядоченной по возрастанию. В случае...

Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак. паскаль:)

Вводится последовательность натуральных чисел. Признак конца ввода – 0. определить является ли последовательность геометрической прогрессией
Помогите пожалуйста написать программу на языке Паскаль, без использования массива.

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести...

Последовательность
Последовательность a1,а2,...,ак называется монотонной, если а1<=a2<=...<=ak либо a1>=a2>=...>=ak. В массиве A(m) найти самую длинную...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru