| Автор | Помогите задачку в паскале решить=* |
|---|
| хех... |
| дай тестовый пример будем разбираться |
| ну ввожу ему 20. должен вывести 12, 18 и 20. но ничего не пишет. изменяла мелочи, всё равно пусто. вредина мой комп. боюсь проблема в выводе, но какая... |
uses crt;
var a,d,c,m: integer;
begin;
writeln('vvedite m'); readln(m);
for a:=1 to m do
begin
d:=1; c:=0;
while d<a do
begin
if (a mod d)=0 then
begin
c:=c+d; d:=d+1;
end else d:=d+1;
end;
if c>a then writeln(a);
end;
END.
Должно работать, но почему-то не хочет ничего выводить... |
ну я тоже на моде споткнулась... там остаток нужен, значит див.
и у меня ничего не выводит, с моим вариантом |
для _не_блондинка_:
див - выдает то, что получилось от деления без остатка
мод - дает сам остаток |
| счас конспект достану |
| угу, и задержку перед завершением добавьте |
| ну констпект мой точно не врёт... я права... мод даёт число без остатка |
| стоп... я не туда поглядела... |
| простите( |
mod - остаток
div - число без остатка.
if ( a div d=0) then c:=c+d;
Здесь нужно использовать mod. |
| кстать... я сперва мод и брала... но всё равно ничего не выводил... потом подумала, что попробовать див можно... |
| сейчас перепроверила с модом... ничего не вышло... снова ничего не выводит |
| фсё... сдаюсь... терь среди пятёрок по икт будет одна 4))) |
uses crt;
var a,d,c,m: integer;
begin
readln(m);
if m=1 then writeln(' не излишнее') else begin
writeln(1, ' не излишнее');
for a:=2 to m do
begin
c:=0;
for d:=1 to a-1 do
begin
if (a mod d)=0 then
c:=c+d;
end;
if c>a then writeln(a) else writeln(a, ' не излишнее');
end;
end;
Вот решенная задача(разделена пустыми строками для удобства), при 20 выдает 12, 18, 20...
для проверки результата нужно было на выводе писать, что выдавать в ином случае. |
| спасибо всем, кто не оставил без внимания=*** рада, что есть кому помочь))) если понадоблюсь, с удовольствием помогу) |
для _не_блондинка_:
А изначальна ваше программа была почти правильная - только местами поменять последние строчки и див на мод.
____________________
Благодарностей не требуется, it's only my job. |
| =* |
| А мы только бейсик проходим, а так помог бы конешн. |
