Question

Присвоить переменной A1значение 25, переменной А2 значение 20. Поменять значения переменных местами. Вычислить значение переменной А3=А1-А2.

Answer 1

Ответ:

var

A1,A2,A3: Integer;

begin

A1 := 25;

A2 := 20;

A1 := A1 +A2;

A2 := A2 - A1;

A2 := -A2;

A1 := A1 - A2;

A3 := A1 - A2;

writeln(A3)

end.