-
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; -
-
-
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. -
-
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (25.04.2024) наш сайт содержит 109573 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос. -
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных
Ответить на вопрос
Последние опубликованные вопросы
16. Шифр кодового замка является двузначным числом. Буратино забыл код, но помнит, что сумма цифр этого числа, сложенная с их произведением, равна самому числу. Напишите все возможные варианты кода...
S<13 и не s чётное
Получено сообщение, информационный объем которого равен 32 битам. Чему равен этот объем в байтах
Каждый переданный кодовый символ может принят ошибочно с фиксированным вероятностью P Решать задачку по этой формуле P(zj/Uk) = P/N-1 при j≠k I-p при j=k
В дощечку в ряд вбито 10 гвоздиков, таким образом, получилось 9 последовательных промежутков между ними. Длины промежутков (подряд, слева направо) оказались равны 7, 2, 8, 4, 3, 9, 5, 1, 6.
Между н...
Кто может подсказать почему не работает секундомер? (не добирает 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 м болатын мухит