Подпрограмма Алг подпр 1 ( арг цел X,Y, рез цел F) Нач X:=X+1 Y:=Y*5 F:= X+Y кон...

Question

Подпрограмма
Алг подпр 1 ( арг цел X,Y, рез цел F)
Нач
X:=X+1
Y:=Y*5
F:= X+Y
кон
вызывается на выполнение

нач цел А,В,С
А:=3
B:=5
подпр 1 (А,В,А)
После этого значение переменной А будет равно

ПОМОГИИТЕ,С РЕШЕЕЕНИЕМ

Comments

подпр 1 (А,В,А)

---

подпр 1 (А,В,C) ?

---

Задание всё верно записано.увы больше никак по-другому(

---

значит a = 29

---

Ответ верный,но как решили?

---

сначала a = 4, после значению b = 5*5 и после снова a = 4 + 5*5 = 4 + 25 = 29

---

Благодарю !

---

не за что

---

function f1 (x,y,f:integer) :integer;beginx:=x+1;y:=y*5;f:=x+y;f1:=f;end;var a,b,c:integer;begina:=3;b:=5;writeln(f1(a,b,a));writeln(a);end.

---

это тоже самое только на паскале

Answer 1

Function podpr1(ByVal X,Y as Integer) as Integer
  X=X+1
  Y+Y*5
  podpr1=X+Y
End Function

sub test()
  A=3
  A=podpr1(A,5)
  MsgBox A
end sub

Результат 29
Значение переменной A будет 29