Распишите. 1.определите значение целочисленных переменных x и y после выполнения фрагмента программы х := 19;
у := 3;
z := у*2;
у := х mod у;
х := х - z;
у := у + z;

Ответы (1)

Дью 09.01.2025 4

Var
    x, y, z: integer ;

begin

    x := 19;
    y := 3;
    z := y * 2;
    y := x mod y;
    x := x - z;
    y := y + z;
    writeln('x = ', x, ', y = ', y, ', z = ', z);


end.

Вывод
x = 13, y = 7, z = 6

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Распишите. 1.определите значение целочисленных переменных x и y после выполнения фрагмента программы х := 19; у := 3; z := у*2; у := х mod у; х := х - z; у := у + z;

Думаешь ответы не верны?

Распишите. 1.определите значение целочисленных переменных x и y после выполнения фрагмента программы х := 19;
у := 3;
z := у*2;
у := х mod у;
х := х - z;
у := у + z;