
Запишите число, которое будет напечатано в результате выполнения программы. var s, n: integer;
begin s:= 34; n:= 1; while s > 0 do begin s:= s - 6; n:= n + 3; end; writeln(n) end.

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

Ответ:
в результате будет напечатано 16



Ответ
Результат выполнения данной программы будет число 12.
Пояснение
Давайте разберемся, как работает данная программа.
```pascal var s, n: integer; begin s := 34; n := 1; while s > 0 do begin s := s - 6; n := n + 3; end; writeln(n) end. ```
В начале программы объявляются две переменные: `s` и `n`. Затем `s` инициализируется значением 34, а `n` - значением 1.
Далее следует цикл `while`, который будет выполняться до тех пор, пока значение переменной `s` больше 0. Внутри цикла значение `s` уменьшается на 6, а значение `n` увеличивается на 3.
Таким образом, на каждой итерации цикла значение `s` уменьшается на 6, а значение `n` увеличивается на 3. Цикл будет выполняться до тех пор, пока `s` не станет меньше или равно 0.
После окончания цикла, программа выводит значение переменной `n` с помощью команды `writeln(n)`.
Итак, давайте посчитаем, сколько раз цикл выполнится:
- Первая итерация: `s = 34`, `n = 1` - Вторая итерация: `s = 28`, `n = 4` - Третья итерация: `s = 22`, `n = 7` - Четвертая итерация: `s = 16`, `n = 10` - Пятая итерация: `s = 10`, `n = 13` - Шестая итерация: `s = 4`, `n = 16` - Седьмая итерация: `s = -2`, `n = 19`
После седьмой итерации значение `s` становится меньше или равно 0, поэтому цикл прекращает свое выполнение.
Итак, результат выполнения программы будет число 19.


Похожие вопросы
Топ вопросов за вчера в категории Информатика








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