<span>D:\Материалы к урокам\10 класс\Практические работы
перешел выше, значит </span><span>D:\Материалы к урокам\10 класс
спустился в </span><span>D:\Материалы к урокам\10 класс\Лекции
</span>удалил файл "введение", значит полное имя файла D:\Материалы к урокам\10 класс\Лекции\введение.
<span>*a*e.?
*a?e.*</span>
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
А < 7 значит проходим по алгоритму. мы к а:=а+1 (2+1); и b:=b+а (0+3 (3 потому что мы к а прибавили 1)). а < 7 значит проходим по алгоритму. мы к а:=а+1 (3+1); и b:=b+а (3+4). а < 7 значит проходим по алгоритму. мы к а:=а+1 (4+1); и b:=b+а (7+5). а < 7 значит проходим по алгоритму. мы к а:=а+1 (5+1); и b:=b+а (12+6). а < 7 значит проходим по алгоритму. мы к а:=а+1 (6+1); и b:=b+а (18+7). а уже не меньше 7 оно равно 7 значит мы вышли из цикла а=7 и b=25