• 
  • 06 November 2013
  Информатика
  • Автор: Taka7771

  

  Дано натуральное число N>1.Равно ли оно сумме своих делителей(включая единицу,но не включая себя)? НУЖЕН ЦИКЛИЧЕСКИЙ АЛГОРИТМ РЕШЕНИЯ ДАННОЙ ЗАДАЧИ В ПАСКАЛЕ.

• 
  • 06 November 2013
  • Ответ оставил: BilliMilly

  Max:=100
  for q:=2 to max do
  begin
  sum:=0;
  for q1:=1 to q-1do if (q mod q1=0) then sum:=sum+q1;
  if q=sum then writeln(q,'-искомое');
  end;

  0
• 
  • 06 November 2013
  • Ответ оставил: preceptor

  Program Digit;
  Const min = 1;
  Var N, sum, i: Integer;
  Begin
  Write('N = ');
  ReadLn(N);
  If N <= min Then
  WriteLn('Число N должно быть больше ', min)
  Else
  Begin
  sum := 0;
  For i := min To N - 1 Do
  If N Mod i = 0 Then
  sum := sum + i;
  If N = sum Then
  WriteLn('Число ', N, ' равно сумме своих делителей')
  Else
  WriteLn('Число ', N, ' не равно сумме своих делителей');
  End;
  ReadLn;
  End.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (15.05.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы