С клавиатуры вводятся два натуральных числа a, b (a

July 2022 1 15 Report

С клавиатуры вводятся два натуральных числа a, b (a<=b). Найти в диапазоне от a до b (включая границы) число, имеющее максимальную сумму делителей. (PASCAL)

Answers & Comments

vladmor //Pascal
var a,b, I, maxsumm, max : integer;

function summdel(x:integer):integer; //результат - сумма делителей х
var k,sum:integer;
begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
end;

begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
end.

2 votes Thanks 1

Answers & Comments

s klaviatury vvoditsya celoe polozhitelnoe chislo opredelit skolko v etom chisl

s klaviatury vvoditsya celoe polozhitelnoe chislo vychislit summu nechyotnyh cifr

s klaviatury vvodyatsya dva naturalnyh chisla a b altb najti v diapazone ot592894d191daee788e00f9e8285cf27d 34407

Xfact(n - k)* Xfact(k); writeln('C = ',c); end...

pascalfunkciis klaviatury vvodyatsya dva celyh chisla a i b najti i vyvesti na e

kompyuter vydaet oshibkuvstrechen konec fajla a ozhidalsya operator pomogite ispr

informatikapaskaltemacikl so schyotchikom narisovat n koncentricheskih okruzhnos

informatikapaskaltemacikly narisujte vertikalnye linii ot levogo kraya graf

8...

ukazhite znachenie kakogo vyrazheniya kratno 3128 7 11 2227 5 15 431

рекомендуемые вопросы

Helpful Links

Helpful Social