Как перенести значение из одной процедуры в другую? - PascalABC.NET

Формулировка задачи:

Есть две процедуры и мне надо перенести значение из одной локальной переменной в другую. Как это можно сделать?

Код к задаче: «Как перенести значение из одной процедуры в другую? - PascalABC.NET»

textual
var
  gb: integer = 0;
procedure p1;
begin
  writeln(gb);
  gb := 12;
end;
procedure p2;
begin
  writeln(gb);
  gb := gb+1;
end;
 
begin
 
  gb:= 1;
  p1;
  
  p2;
  
  p1;
 
end.

10   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ