Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n := 2; s := 35; while n <= 25 do begin s := s + 20; n := n + 5 end; write(s) end.

ответ: 135

Объяснение:

n = 2

s = 35

пока n <= 25 делать:

s = 35 + 20 = 55

n = 2 + 5 = 7

пока n <= 25 делать:

s = 55 + 20 = 75

n = 7 + 5 = 12

пока n <= 25 делать:

s = 75 + 20 = 95

n = 12 + 5 = 17

пока n <=25 делать:

s = 95 + 20 = 115

n = 17 + 5 = 22

пока n <= 25 делать:

s = 115 + 20 = 135

n = 22 + 5 = 27

пока n <= 25 становится ложью и осуществляется выход из программы.

s = 135

1)

Function check7(a As Range) As Integer

Dim r As Range

Dim i As Integer

For Each r In a

i = i + 1 - Sgn((Abs(r) + 3) Mod 10)

Next

check7 = i

End Function

Excel VBA

2)

А что здесь программировать-то?

Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими можно разместить эти 7 мячиков в этих двух ящиках?

Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.

Получаем варианты:

7|0

6|1

5|2

4|3

3|4

2|5

1|6

Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).

В общем-то и без вычислений всем очевидно, что разместить 7 мячиков в двух ящиков ровно 7.

Что должна вычислять программа?

1321

Объяснение:

Число 2^900 в двоичном виде - это единица с девятьюстами нулями.

Число 7 - это 2^2+2^1+2^0

2^900-2^0=2^900-1=2^899  (в двоичном виде - это 900 единиц)

2^2+2+1 в двоичном виде выглядит как 110.

Операция 2^899-2^2-2^1 в двоичном виде представляет из себя замену предпоследних, 898-й и 899-й единиц на 0. Число в двоичном виде будет выглядеть как 897 единиц, затем два нуля, затем единица.

Значащих нулей в числе 2^900-7 рано двум.

8^740=(2^3)^740=2^(740*3)=2^2220

Число 2^2220 в двоичном виде - это единица с двумя тысячами двести двадцатью нулями.

2220-900+1=1321  То есть при сложении, число 2^900-7 записывается в числе 2^2220 начиная с 1321-го разряда.

Искомое число 8^740+2^900-7 в двоичном виде будет выглядеть как единица, 1319 нулей, 897 единиц, два нуля и одна единица.

Число значащих нулей в этом числе составит 1319+2=1321.