2 задачи по ДжаваСкрипт я не могу додуматься!(

12.12.2013, 23:13. Показов 665. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Помогите решить 2 задачи на ДжаваСкрипт я не могу додуматься!(

1 ЗАДАЧА:

Задано число N. Напишите программу, которая найдет число с диапазона от 1 до N с максимальной суммой делителей (включая непростые делители, 1 и само число).

Технические условия
С клавиатуры вводится единственное число N (1 <= N <= 10000). На экран необходимо вывести число из диапазона от 1 до N с максимальной суммой делителей. Если таких чисел несколько, выведите максимальное из них.

Пример:
Входные данные:
11
Выходные данные:
10

Так же прикладываю решение на языке Паскаль:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  N, I, K, MaxI, MaxS, S : LongInt;
begin
  ReadLn(N);
  MaxI := 0;
  MaxS := 0;
  for I := N downto N div 2 do
  begin
    S := 1+I;
    for K := 2 to Round(Sqrt(I)) do
      if I mod K = 0 then S := S + K + I div K;
    if S > MaxS then
    begin
      MaxS := S;
      MaxI := I;
    end;
  end;
  WriteLn(MaxI);
end.

2 ЗАДАЧА:

В N стаканах достаточно большой емкости налито поровну воды. Разрешается переливать из любой стакана в любую другую столько воды, сколько в последний. Определите, можно ли при заданном N за конечное число шагов слить воду в один стакан?

Технические условия
С клавиатуры вводится единственное число N (1 <= N <= 10000). На экран необходимо вывести количество операций, если можно слить всю воду в один стакан и «NO» - в противном случае.

Входные данные:
4 | 3
Выходные данные:
3 | no

Паскаль:

Pascal
1
2
3
4
5
6
7
8
var
  N, K : LongInt;
begin
  ReadLn(N);
  K := N;
  while N mod 2 = 0 do N := N div 2;
  if N = 1 then WriteLn(K-1) else WriteLn('NO');
end.

Помогите пожалуйста!

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

12.12.2013, 23:13

Ответы с готовыми решениями:

Задачи, не могу додуматься
Версия 3.6 Заполните массив из 10 элементов случайными числами в интервале . Введите число X и найдите все значения, равные X. ...

Не очень разбираюсь в VBA , не могу сделать код для это программы.вроде не сложный.но не могу додуматься)
Определить, сколько можно купить толковых, фразеологических и орфографических словарей русского языка, если цена толкового словаря 600 р.,...

Запилите не могу додуматься
Добрый вечер как можно из кода FUnction переписать на php function ssi_login($redirect_to = '', $output_method = 'echo') { global...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

12.12.2013, 23:13

Помогаю со студенческими работами здесь

никак не могу додуматься(
Есть массив допустим мы нашли у него максимум. Как найти второй максимум этого массива?

никак не могу додуматься до решиния задачки)
Вам дана строка со студентами в формате: «Имя Фамилия Отчество Возраст, Имя Фамилия Отчество Возраст». Возраст является необязательным...

Не могу додуматься, как реализовать ячейку памяти
Добрый день, У меня такая проблема: не могу реализовать ячейку памяти. Работа заключается в следующем: в память приходит сигнал,...

Нужно создать цикл, не могу додуматься как
В общем цикл должен быть следующий: Объявляется переменная на основе записей пользователя $sample Идет просмотр записей в базе данных -...

Не могу додуматься как в БД сделать один расчет
http://s1.********************/uploads/thumbs/2014/06/d0a8d6f1e5239d0b12204e5eba90c2bd.png Здравствуйте. У меня такая проблема не могу...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Наверх