Подпрограмма алг подпр 1 ( арг цел x,y, рез цел - вопрос №1157755152 от veip0 28.06.2020 16:25

Question

Информатика: Подпрограмма алг подпр 1 ( арг цел x,y, рез цел f) нач x: =x+1 y: =y*5 f: = x+y кон вызывается на выполнение нач цел а,в,с а: =3 b: =5 подпр 1 (а,в,а) после этого значение переменной а будет равно ,с

veip0 · Answer

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