Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 12
1

Получить все совершенные числа, меньшие n

27.02.2018, 14:31. Показов 639. Ответов 1
Метки нет (Все метки)

Нашел программу к моей задаче , но не могу понять что там написано.
Условия:Натуральное число называется совершенным, если она равно сумме всех своих делителей,за исключением себя самого.
Число 6-совершенное , так как 6=1+2+3. Число 8- не совершенное , так как 8 не =1+2+4.
Дано натуральное число n. Получить все совершенные числа , меньше n.
Bот сама программа:


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program SIO2;
uses crt;
var n,i,j, suma: integer;
 
begin 
         clrscr;
         writeln('Vvedite n');
         readln (n);
         if n>2
         then begin
                        for i:=3 to n do
                        begin 
                        suma :=0;
                        for j:=1 to i-1 do
                        if i mod j=0 then 
                        suma :=i then 
                        writeln (i);
 
end;
end;
readln;
end.
Помогите понять что здесь написано и как работает программа или как кой-то свой вариант , может есть что-то легче !Спасибо кто поможет.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2018, 14:31
Ответы с готовыми решениями:

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

Разработать программу, которая выводит на экран все совершенные числа, меньшие заданного значения N
Разработать программу, которая выводит на экран все совершенные числа, меньшие заданного значения...

Получить все члены последовательности a, a^2, a^3 меньшие числа b
Помогите пожалуйста написать программу, используя цикл: Даны числа a, b: a<b. Получить все члены...

Получить все члены последовательности a, a^2, a^3 меньшие числа b
Помогите пожалуйста написать программы с циклами: 1) P=a*a*...*a=a^n, n=7 2) Даны числа a, b:...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5748 / 3452 / 2448
Регистрация: 22.11.2013
Сообщений: 9,699
Записей в блоге: 1
27.02.2018, 14:36 2
Это не полностью скопированный обрубок.
Но вы можете легко дописать недостающее.
И даже сделать ее намного оптимальнее, чем было.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2018, 14:36

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Получить все натуральные числа, меньшие N и взаимно простые с p
Даны натуральные числа N и p. получить все натуральные числа, меньшие N и взаимно простые с p ...

Получить все натуральные числа, меньшие n и взаимно простые с ним
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два...

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.