Простая задача - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Простая задача

Опции

-Александр-	28.09.2007 20:12 Сообщение #1
Гость	хотел написать программу для подсчета совершенных чисел от 1 до 10 000 вот ее код, но что-то там не работает program Project1; {$APPTYPE CONSOLE} uses SysUtils; var mersen:real; var p:integer; var sover:real; var sum_sover:real; var n:real; begin sum_sover:=0; sover:=0; for p:=1 to 10000 do begin n:=p; mersen:=(exp(n)ln(2.0))-1.0; //-1; //делаем проверку на простоту числа мерсена if ((mersen/2)2<>mersen)then if ((mersen/5)5<>mersen)then if ((mersen/7)7<>mersen)then if ((mersen/9)9<>mersen)then if ((mersen/23)23<>mersen)then if ((mersen/341)341<>mersen)then sover:=(exp(p-1)ln(2.0))*mersen; if sover>10000 then begin sum_sover:=sum_sover+sover; end else sum_sover:=sum_sover-1; end; // writeln('Symma chicel ravna', sum_sover); readln; end. на паскале не прогал давно ....хотелось бы получить помощь