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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник