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

Задать вопрос
Задать вопрос
  • Дано натуральное число 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;

    • 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.

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
    На сегодняшний день (02.10.2022) наш сайт содержит 109568 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

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

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

Кто может подсказать почему не работает секундомер? (не добирает 60 секунд следовательно не переходит на следующую минуту) язык Python import time from tkinter import * from datetime import datetim... Pyhon (Информатика) Решить задачу: На тренировках спортсмен ежедневно пробегает некоторую дистанцию, с каждым днем увеличивая ее на 10%. Составить программу, определяющую по расстоянию, преодоленн... совокупность средств и правил взаимодействия человека с компьютером​ Что такое информатика в ИБ кратко 1) 1561 +7361 в 8-ичной системе счисления2) 1101011 + 11011 в 2-ичной системе счисления3) 101001 * 101 в 2-ичной системе счисления4) 95FA * D23 в 16-ичной системе счисления5) 1654 * 453 в 8-ичной с... 1)Какая антивируснал програма устоневлена на вашем компютере или мобильном устроистве, по каким параметерам вы ее выберали? ПАЖАЛУСТА ПОМОГИТЕ УМАЛЯЮ СРОЧНО!!!!!!!!!! ​ Орташа терендиги 1225 м болатын мухит ​ Перевести число 3ВС16  из шестнадцатеричной системы счисления в десятичную СС.(СС-система счисления)​ Задача 2: Наборы пирожных На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и эклеры. Круассанов A штук, а эклеров — B штук. Есть неограниченный запас подарочных коробок, в ка... на каком языке надо писать олимпиаду по инфоне знаешь не отвечайрматике В саду растут фруктовые деревья: из них 338 яблони, 228  груши, 168  слив и 178 вишен. Сколько всего деревьев в саду? Ответ представьте в 10 С.С.​ Для записи сообщения Ура, каникулы! использовали алфавит мощностью 256 символов. Определите информационный объём сообщения. Ответ запишите в байтах. Единицы измерения указывать не нужно. *
*{ message }*