Дан числовой ряд, содержащий целые положительные числа, не превосходящие 300/вот на этом моменте я не поняла, что здесь имеется ввиду/. Количество неизвестно, но окончанием ввода числового ряда является ввод нуля. Найти число, для которого сумма делителей числа будет наибольшей, исключая из делителей ноль и само число УМОЛЯЮ ПОМОГИТЕ
этом моменте я не поняла, что здесь имеется ввиду/. Количество неизвестно, но окончанием ввода числового ряда является ввод нуля. Найти число, для которого сумма делителей числа будет наибольшей, исключая из делителей ноль и само число УМОЛЯЮ ПОМОГИТЕ
//Pascal ABC.NET v3.1 сборка 1172Var n,i,s,max,maxn:integer;beginn:=1;max:=-1; while n<>0 do begin readln(n); for i:=1 to n div 2 do if n mod i=0 then s:=s+i; if max<s then begin max:=s; maxn:=n; end; s:=0; end; writeln(maxn);end.Пример ввода:23456712230Пример вывода:45
Также наши пользователи интересуются:
Спиши, употребляя глаголы в 3-м лице единственного числа настоящего времени. УкажиРешите пример пожаалуйста)
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан числовой ряд, содержащий целые положительные числа, не превосходящие 300/вот на» от пользователя Жора Зайчук в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!