Question

Найдите значение переменной а после выполнения программы: var a,b: integer; begin a:=1848; b:=(a div 100)*10+9: a:=(10*b-a) mod 100; writeln (‘a=’, a); writeln (‘b=’, b); end.

Answer 1

А:=42 В не нужно записывать)

Answer 2

Давайте разберемся, какие операции выполняются в данной программе и найдем значение переменных a и b после выполнения программы:

1. a устанавливается в 1848: a := 1848;

2. b устанавливается как (a div 100) * 10 + 9, где div - это операция деления с отбрасыванием дробной части: b := (1848 div 100) * 10 + 9; b := 18 * 10 + 9; b := 180 + 9; b := 189;

Теперь у нас есть новые значения для a и b:

• a остается 1848.
• b становится 189.

3. Затем a переопределяется как (10 * b - a) mod 100: a := (10 * 189 - 1848) mod 100; a := (1890 - 1848) mod 100; a := 42 mod 100; a := 42;

Таким образом, после выполнения программы:

• a будет равно 42.
• b будет равно 189.

Программа выводит результаты на экран:

cssCopy code
a=42
b=189