Форум » Обработка целых чисел » задание 25 » Ответить
задание 25
Артур: Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [268220; 270335] число c максимальной суммой делителей, имеющее не более четырех делителей. Для найденного числа выведите сумму делителей, количество делителей и все делители в порядке убывания. [pre2] var r,max,p,i,j,k,s: integer; a: array [1..2] of integer; begin max:=0; for i:= 268220 to 270335 do begin k:=0; for j:= 2 to i div 2 do begin if (i mod j =0) then begin k:=k+1; if k>2 then break; a[k]:=j; end; end; if (k=2) then begin r:=1+i+a[1]+a[2]; if r >=max then max:=r; end; end; writeln (max,' ',i,' ', a[2],' ',a[1],' ',1); end.[/pre2] Есть ли ошибка в программе?
Ответов - 0
полная версия страницы