Задания B3. Про­стей­ший циклический алгоритм, за­пи­сан­ный на ал­го­рит­ми­че­ском языке

B 3. За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s := 0 нц для k от 3 до 7 s := s + 6 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR к = 3 TO 7 s = s + 6 NEXT k PRINT s	Var s,k: integer; Begin s := 0; for k := 3 to 7 do s := s + 6; writeln(s); End.

По­яс­не­ние.

Цикл «for k := 3 to 7 do» вы­пол­ня­ет­ся пять раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 6. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 5 · 6 = 30.

Ответ: 30

B 3 (1). За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s := 0 нц для k от 3 до 8 s := s + 9 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR к = 3 TO 8 s = s + 9 NEXT k PRINT s	Var s,k: integer; Begin s := 0; for k := 3 to 8 do s := s + 9; writeln(s); End.

По­яс­не­ние.

Цикл «for k := 3 to 8 do» вы­пол­ня­ет­ся шесть раз. Каж­дый раз пе­ре­мен­ная s уве­ли­чи­ва­ет­ся на 9. По­сколь­ку из­на­чаль­но s = 0, после вы­пол­не­ния про­грам­мы по­лу­чим: s = 9 · 6 = 54.

Ответ: 54