Вопрос № 89642: Всем добрый день ...
Подскажите пожалуйста , как реализовать на Ассемблере проверку : является ли число, введенное пользователем совершенным?
P.S. СОВЕРШЕННОЕ ЧИСЛО натуральное число, равное сумме всех своих правильных (т. е. меньших этого ...Вопрос № 89730: Здравствуйте, эксперты. Помогите, пожалуйста, решить задачу: дана строка длиной до ста символов, в ней несколько раз встречается слово "школьник", заменить все его вхождения на слово "студент"...
Вопрос
№ 89.642
Всем добрый день ...
Подскажите пожалуйста , как реализовать на Ассемблере проверку : является ли число, введенное пользователем совершенным?
P.S. СОВЕРШЕННОЕ ЧИСЛО натуральное число, равное сумме всех своих правильных (т. е. меньших этого числа) делителей. Например, 6=1+2+3 и 28=1+2+4+7+14 суть совершенные числа.
Отправлен: 01.06.2007, 20:27
Вопрос задал: GOTHIC (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Tamashev Denis M
Здравствуйте, GOTHIC!
А число известно заранее?
Если да то можно складывать и проверять с уже готовым числом с помошью cmp.
Или я что-то недопонял ???
Приложение:
Ответ отправил: Tamashev Denis M (статус: 4-ый класс)
Ответ отправлен: 02.06.2007, 18:56
Отвечает: IceWolf
Здравствуйте, GOTHIC!
Работающая программа с комментариями в приложении. Чтобы было легче разобраться привожу текст аналогичной программы на паскале.
Program sovr;
var
Num, Sum, i :integer;
begin
Write('Введите число:');
Readln(Num);
Sum:=1;
for i:=2 to (Num div 2) do //проверяем все делители(div-целочисленное деление)
if (Num mod i)=0 //mod-остаток от деления
then Sum:=Sum+i;
if Sum=Num //Сумма делителей равна исходному числу?
then Writeln('Число совершенное.')
else Writeln('Число несовершенное');
Readln;
end.
Удачи!
С уважением, IceW0|f.
Приложение:
--------- Идеальных защит не существует, ибо то, что создано человеческим разумом, им же будет и разрушено!
Ответ отправил: IceWolf (статус: 9-ый класс)
Ответ отправлен: 04.06.2007, 17:40 Оценка за ответ: 5 Комментарий оценки: Круто ! огромное Вам спасибо ! Вы меня спасли, а главное помогли разобраться с решением
Вопрос № 89.730
Здравствуйте, эксперты. Помогите, пожалуйста, решить задачу: дана строка длиной до ста символов, в ней несколько раз встречается слово "школьник", заменить все его вхождения на слово "студент"
Отправлен: 02.06.2007, 16:39
Вопрос задал: PingWIN (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: IceWolf
Здравствуйте, PingWIN!
В приложении работающая программа. Но использовать её можно лишь в случае, если вставляемая строка меньше затираемой. Если нужен вариант для проивольной длины строки-пишите в личку.
Удачи.
С уважением, IceW0|f.
Приложение:
--------- Идеальных защит не существует, ибо то, что создано человеческим разумом, им же будет и разрушено!
Ответ отправил: IceWolf (статус: 9-ый класс)
Ответ отправлен: 04.06.2007, 16:12