| Автор | Помогите задачку в паскале решить=* |
|---|
назовём избыточным число, которое меньше суммы его правильных делителей. например 12<1+2+3+4+6. найти все избытночные от 1 до М.
Что здесь не правильно???
program a1;
var a{последовательно от 1 до m},d{делитель},c{сумма делителей},m{число, до которого проверять избыточные}: integer;
begin;
writeln('vvedite m'); readln(m);
a:=1;
while a<m do begin;
d:=1; c:=0;
while d<a do begin;
if ( a div d=0) then c:=c+d;
d:=d+1;
end;
a:=a+1;
if (c>a) then writeln('a= ',a);
end;
END. |
| а говоришь не блондинка... |
| program a1; вот здесь неправильно, должно быть a2. |
| а толку??? ведь это не переменная, можно прогу называть так))) тут грамматических ошибок нет... я проверяла... не работает как мне надо... |
| хнЫк... |
| плакать буду... |
| Твоё дело. |
| помогииите! всю пару над этой задачей билась, не могу ошибки найти... не пашет, как по условию... |
do begin;
На кой МПХ после бегин точку с запятой? |
| [Сообщение удалено смотрителем Герцогиня // ] |
| а разница??? можно и ставить... повторю, грамматических ошибок нет. ctrl+f9 не врёт |
могу решить. но почему я должен делать это бесплатно?
ну не хочешь не надо... просто не люблю корыстных.... |
while d<a do begin;
if ( a div d=0) then c:=c+d;
d:=d+1;
Конечно пахать не будет, ведь прога будет в конце еще прибавлять и само это число, ведь оно-то тоже при делении на него даст 0 в остатке.
до половины от m надо считать... |
| [Сообщение удалено смотрителем Marevick // Не хочешь решать - пройди мимо топика. И нечего хамить.] |
| не будет прибавлять. там строго меньше. |
а я должен решать бесплатно только потому, что ты родилась без шариков между ног? Или что еще?
вот только не надо... без грубости... а то обижусь... |
a:=a+1;
if (c>a) then writeln('a= ',a);
Имхо, местами надо поменять... |
| это я переписывала невнимательно... оттуда скопировать нельзя... |
не будет прибавлять. там строго меньше.
Все равно надо до половины+1 считать, ибо лишние операции будут проводится и на тех же олимпиадах не будет попадать в установленные временные рамки работы... |
| ну я ж не иду на олимпиаду))) мне 5 нужно по икт... не больше))) |
