• Задание: Какое значение будет принимать переменная Y после выполнения фрагментов программы, сколько раз будет выполнен цикл?

    1) Var

    x,y: integer;

    Begin

    Y:=0;

    For x:=1 to 9 do

    Y:=y+1;

    Writeln (‘y = ’,y);

    End.

    2) Var

    Y, x: integer;

    Begin

    Y:=0;

    X:=10;

    While x>0 do

    Begin

    X:= x-2;

    Y:= y+x;

    End;

    Writeln (‘y = ’,y)

    End.

    question img

Ответы 1

  • в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8

    во 2 случае

    y  0  8 14 18 20 20

    x 10 8   6   4   2   0 

    шагов 5, к концу Y=20

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years