Форум » Обработка целых чисел » 25 » Ответить
25
Кэйт: Задача: Выведите каждое почти совершенное число из диапазона [1000; 20000] в порядке возрастания по одному в строке. Число называется почти совершенным, если оно больше суммы своих собственных делителей (то есть всех положительных делителей, отличных от самого́ числа) на единицу. [pre2] var c,i,y,k: longint; begin for i:=1000 to 20000 do begin k:=0; c:=0; for y:= 1 to i div 2 do begin if i mod y =0 then begin c:=c+1; k:=k+y; end; end; if i-k=1 then writeln (i); end; end.[/pre2]В чём ошибка?
Ответов - 2
Поляков: Кэйт пишет: В чём ошибка? В том, что вы не оформили нормально код отступами и тэгом [ pre2 ]. А программа работает верно.
Кэйт: А что за тэг?
полная версия страницы