Сумма общих делителей двух чисел

@blood_devil · Регистрация: 15.11.2010

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

приветствую. Пришел с такой задачей.
Составить программу, которая определяет для двух вводимых натуральных чисел M и N сумму их общих делителей.

Если правильно врубаюсь то задача сводится к следующему:
1) найти все делители меньшего числа
2)Проверить являются ли найденные делители M делителями N
3)Найдя общие сложить
4)****************
5)PROFIT!!!

правильно мыслю?

@кот Бегемот · 15.11.2010, 22:15

Сообщение от blood_devil

приветствую. Пришел с такой задачей.
Составить программу, которая определяет для двух вводимых натуральных чисел M и N сумму их общих делителей.

Если правильно врубаюсь то задача сводится к следующему:
1) найти все делители меньшего числа
2)Проверить являются ли найденные делители M делителями N
3)Найдя общие сложить
4)****************
5)PROFIT!!!

правильно мыслю?

Pascal
1
2
3
4
readln(m,n);
for i:=2 to n-1 do
if (n mod i=0)and(m mod i=0)then s:=s+i;
writeln(s);

находить меньшее совсем не обязательно

@blood_devil · 15.11.2010, 22:21 **[ТС]**

Сообщение от кот Бегемот

Pascal
1
2
3
4
readln(m,n);
for i:=2 to n-1 do
if (n mod i=0)and(m mod i=0)then s:=s+i;
writeln(s);

находить меньшее совсем не обязательно

премного.действительно решение максимально простое. спасибо.

@blood_devil · 15.11.2010, 22:36 **[ТС]**

Уважаемый,кот Бегемот, гляньте,пожалуйста и на этот код... может как-то упростить можно?

Задание. вычислить значение функции S.(полный текст в приложении)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var i,j,k:integer;s1,s2,s:real;
begin
  clrscr;
  s1:=0; s2:=0;
  
  for i:=1 to 19 do //÷èñëî ïðè òàíãåíñå(øàã 2)
  for j:=3 to 21 do //ëåâîå ÷èñëî(øàã 2)
  if (i mod 2)<>0  then
   begin
        for k:=2 to 11 do //ïðàâîå ÷èñëî(øàã 1)
            begin
                 if (k mod 2)=0  then
                 s1:=s1+(sin(i)/cos(i))/ j+k //ñëîæåíèå â çíàìåíàòåëå
                 else s2:=s2+(sin(i)/cos(i))/ j-k;//âû÷èòàíèå â çíàìåíàòåëå
            end;
   end;
   s:=s1-s2;
   write(' S=',s);
end.

@кот Бегемот · 15.11.2010, 22:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
s:real;
i,k,m:integer;
begin
k:=-1;
m:=-1;
for i:=1 to 10 do
begin
k:=-k;
m:=-m;
s:=s+k*(sin(2*i-1)/cos(2*i-1))/(2*i+1+m*(i+1));
end;
writeln(s);
readln;
end.

@blood_devil · 15.11.2010, 23:24 **[ТС]**

кот Бегемот, еще раз БОЛЬШОЕ спасибо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@blood_devil 0 / 0 / 0 Регистрация: 15.11.2010 Сообщений: 4

	Сумма общих делителей двух чисел 15.11.2010, 22:12. Показов 3488. Ответов 5 Метки нет (Все метки) приветствую. Пришел с такой задачей. Составить программу, которая определяет для двух вводимых натуральных чисел M и N сумму их общих делителей. Если правильно врубаюсь то задача сводится к следующему: 1) найти все делители меньшего числа 2)Проверить являются ли найденные делители M делителями N 3)Найдя общие сложить 4)**************** 5)PROFIT!!! правильно мыслю? 0

@blood_devil 0 / 0 / 0 Регистрация: 15.11.2010 Сообщений: 4
	15.11.2010, 23:24 [ТС]
	кот Бегемот, еще раз БОЛЬШОЕ спасибо. 0