
1) Определите, что будет напечатано в результате работы следующего фрагмента
программы: var n, s: integer; begin n := 3; s := 0; while n <= 26 do begin s := s + 6; n := n + 1 end; write(s) end. 2) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while k < 12 do begin s:=s+2*k; k:=k+3; end; write(s); end.

Ответы на вопрос

Значение s = 0+24*6 = 144
Ответ: 144
2) s = 0; k = 0
k<12 ⇒ 0<12 ⇒ true; s = s+2*k = 0+2*0 = 0; k = k+3 = 0+3 = 3
k<12 ⇒ 3<12 ⇒ true; s = s+2*k = 0+2*3 = 6; k = k+3 = 3+3 = 6
k<12 ⇒ 6<12 ⇒ true; s = s+2*k = 6+2*6 = 18; k = k+3 = 6+3 = 9
k<12 ⇒ 9<12 ⇒ true; s = s+2*k = 18+2*9 = 36; k = k+3 = 9+3 = 12
k<12 ⇒ 12<12 ⇒ false
Ответ: 36



2) за 4 повторения будет выведено число 38



1) Результат работы первого фрагмента программы:
```pascal var n, s: integer; begin n := 3; s := 0; while n <= 26 do begin s := s + 6; n := n + 1; end; write(s); end. ```
Данный фрагмент программы является циклом, который выполняется до тех пор, пока значение переменной `n` не станет больше 26. В каждой итерации цикла значение переменной `s` увеличивается на 6, а значение переменной `n` увеличивается на 1. В итоге, программа выводит значение переменной `s` после окончания цикла.
Результат работы программы: В результате работы данного фрагмента программы будет напечатано число 144.
2) Результат работы второго фрагмента программы:
```pascal var k, s: integer; begin s := 0; k := 0; while k < 12 do begin s := s + 2 * k; k := k + 3; end; write(s); end. ```
В данном фрагменте программы также присутствует цикл, который выполняется до тех пор, пока значение переменной `k` не станет больше или равно 12. В каждой итерации цикла значение переменной `s` увеличивается на удвоенное значение переменной `k`, а значение переменной `k` увеличивается на 3. В итоге, программа выводит значение переменной `s` после окончания цикла.
Результат работы программы: В результате работы данного фрагмента программы будет напечатано число 90.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili