0 / 0 / 0
Регистрация: 20.05.2017
Сообщений: 16
|
|
1 | |
Итерация29.05.2017, 21:14. Показов 538. Ответов 1
Метки нет (Все метки)
Есть программа для итерационного метода (вариант 2)
Но неправильно условие until Не могли бы помочь его исправить? И подсказать как будет выглядеть программа для 16 варианта o begin if (N mod i = 0) then sum:=sum+i; end; if (N=sum)and (sum<>0) then soversh:=true else soversh:=false; end; begin p:=0; writeln ('Введите числа '); repeat begin readln (N); if (soversh(N)) then p:=p+1; end; until N=0; if (p>0) then writeln ('‚ В последовательности есть хотя бы одно совершенное число') else if (p=0) then writeln ('В последовательности нет совершенных чисел'); readln(); end.
0
|
29.05.2017, 21:14 | |
Ответы с готовыми решениями:
1
Рекурсия,Итерация Итерация и сумма в Паскале Рекурсия/итерация: вычислить значение arctg(x) Вычислить произведение ненулевых элементов массива (рекурсия/итерация) |
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
|
|
29.05.2017, 21:22 | 2 |
0
|
29.05.2017, 21:22 | |
29.05.2017, 21:22 | |
Помогаю со студенческими работами здесь
2
Вычислить n-ый член последовательности, заданной рекуррентной формулой (рекурсия/итерация) Итерация Итерация Итерация Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |