Между населёнными пунктами a, b, c, d, e, f построены дороги, протяжённость которых (в километрах) в - id1030197220210618 от mashkakornilova 18.06.2021 10:33

Question

Информатика: Между населёнными пунктами a, b, c, d, e, f построены дороги, протяжённость которых (в километрах) в таблице. a b c d e f a 3 4 15 b 3 2 c 4 2 1 d 1 2 6 e 2 2 f 15 6 2 определите длину кратчайшего пути между пунктами a и f. передвигаться можно только по дорогам, указанным в таблице. 1) 7 2) 9 3) 11 4) 15

mashkakornilova · Accepted Answer

//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.

MOGZ ответил