1. Сколько раз исполнится цикл: i:=6; while i<18 do i:=i+3? 2. Чему будет равна переменная sum после выполнения фрагмента программы: sum:=0; for i:=7 to 9 do sum:=sum+i;

Недостаточно данных: заголовок цикла обрезан («while i …»), без условия и тела невозможно однозначно посчитать число итераций. Количество повторов зависит и от проверяемого условия, и от того, как меняется i внутри тела. Для ориентира — несколько типичных вариантов при i := 6:

• while i > 0 do i := i - 1; — 6 итераций (6→5→4→3→2→1→0, выход при 0).

• while i > 0 do i := i - 2; — 3 итерации (6→4→2→0).

• while i <> 0 do i := i - 2; — 3 итерации (6→4→2→0).

• while i >= 0 do i := i - 2; — 4 итерации (6→4→2→0→-2, выход после получения -2).

• while i < 10 do i := i + 1; — 4 итерации (6→7→8→9→10, выход при 10).

• while i <= 10 do i := i + 1; — 5 итераций (6→7→8→9→10→11, выход при 11).

• Если условие сразу ложно, например while i < 6 или while i > 6, — 0 итераций.

Без полного заголовка и тела точный ответ дать нельзя.