Контрольные задания > Определите значение переменной y, которое будет получено в результате выполнения следующей программы:
```pascal
var i, y: integer;
begin
y := 0;
for i := 1 to 4 do
begin
y := y * 10;
y := y + i;
end;
end.
```
Вопрос:
Определите значение переменной y, которое будет получено в результате выполнения следующей программы:
```pascal
var i, y: integer;
begin
y := 0;
for i := 1 to 4 do
begin
y := y * 10;
y := y + i;
end;
end.
```
Ответ:
Разберем программу по шагам, чтобы понять, какое значение примет переменная `y`.
1. Инициализация:
* `y` присваивается значение 0.
2. Цикл `for i := 1 to 4 do`:
Цикл выполняется 4 раза, при этом переменная `i` принимает значения от 1 до 4.
* i = 1:
* `y := y * 10;` (y = 0 * 10 = 0)
* `y := y + i;` (y = 0 + 1 = 1)
* i = 2:
* `y := y * 10;` (y = 1 * 10 = 10)
* `y := y + i;` (y = 10 + 2 = 12)
* i = 3:
* `y := y * 10;` (y = 12 * 10 = 120)
* `y := y + i;` (y = 120 + 3 = 123)
* i = 4:
* `y := y * 10;` (y = 123 * 10 = 1230)
* `y := y + i;` (y = 1230 + 4 = 1234)
3. Конец программы:
После завершения цикла значение переменной `y` равно 1234.
Ответ: 1234