Определи значение переменной А после выполнения фрагмента программы. A := 546; B:=2* (A div 20); A:= A+B * 2; A:= A mod 200.

Рассмотрим фрагмент программы и определим значение переменной A после выполнения каждой строки:

1. A := 546; (A присваивается значение 546)
2. B := 2 * (A div 20); (A div 20 это целочисленное деление 546 на 20, результат 27. B := 2 * 27 = 54)
3. A := A + B * 2; (A := 546 + 54 * 2 = 546 + 108 = 654)
4. A := A mod 200; (A := 654 mod 200. Остаток от деления 654 на 200 равен 54)

Таким образом, значение переменной A после выполнения фрагмента программы равно 54.

Ответ: 54