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.
Цикл выполнится 4 раза
a = 5 b = 16 s = 21
Объяснение:
a = 1 b = 1
Действия в цикле
a = a + 1
b = b * 2
Цикл заканчивается когда b > 8
s = a + b
a = 1 b = 1
a = a + 1 = 1 + 1 = 2
b = b * 2 = 1 * 2 = 2
b > 8 (2 > 8 - нет, цикл продолжается)
a = a + 1 = 2 + 1 = 3
b = b * 2 = 2 * 2 = 4
b > 8 (4 > 8 - нет, цикл продолжается)
a = a + 1 = 3 + 1 = 4
b = b * 2 = 4 * 2 = 8
b > 8 (8 > 8 - нет, цикл продолжается)
a = a + 1 = 4 + 1 = 5
b = b * 2 = 8 * 2 = 16
b > 8 (16 > 8 - да, цикл заканчивается)
s = a + b = 5 + 16 = 21
a = 5 b = 16 s = 21
Программа:
program z1;
var a,b,s:integer;
begin
a:=1 ;
b:=1 ;
repeat
a:=a+1 ;
b:=b*2 ;
until b>8 ;
s:=a+b;
writeln (s)
end.