сервис вопросов и ответовДано натуральное число N>1.Равно ли оно сумме своих делителей(включая единицу,но не включая себя)? НУЖЕН ЦИКЛИЧЕСКИЙ АЛГОРИТМ РЕШЕНИЯ ДАННОЙ ЗАДАЧИ В
10-11 класс|
|
ПАСКАЛЕ.
2712001
17 марта 2017 г., 0:21:00 (7 лет назад)
Felix334
17 марта 2017 г., 0:57:37 (7 лет назад)
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;
ZhekaWOLf
17 марта 2017 г., 2:44:56 (7 лет назад)
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.
Тrolololo
17 марта 2017 г., 3:31:25 (7 лет назад)
НУЖНО ЧЕРЕЗ ЦИКЛ WHILE
Ответить
Другие вопросы из категории
Что относится к форматированию текста?
1.копирование фрагментов текста
2.исправление опечаток
3.проверка орфографии
4.изменение размера полей
5.перемещение фрагментов текста
Читайте также
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
1.Дано натуральное число:
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
1.дано натурально четырехзначное число. определить цифры этого числа (K,L.M.N) и выяснить можно ли построить ромб со сторонами K,L.M.N.в паскале АВС.
2.дано натурально число N вычислить куб суммы этого числа
Программирование. Составить программы для решения задач: (калькулятор) 1.Дана площадь квадрата.Вычислить периметр этого квадрата 2.Дано натуральное число
Х. Определить,является ли оно четным и делится ли это число на 3
Написать прогу на пвскале 6. Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших
разрядах данного числа. Пример. N = 1020000. Количество нулей равно четырем.
Вы находитесь на странице вопроса "Дано натуральное число N>1.Равно ли оно сумме своих делителей(включая единицу,но не включая себя)? НУЖЕН ЦИКЛИЧЕСКИЙ АЛГОРИТМ РЕШЕНИЯ ДАННОЙ ЗАДАЧИ В", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.