Question

Составьте программу которая выводит на экран значение выражения (a+1)n

Answer 1

Dim a as double

dim n as double 

dim c as double 

a=(textbox1.text)

n=(textbox2.text)

c=(a+1)n

(textbox3.text)=c

Answer 2

Var a,n:Integer;c:Real;
Begin
Writeln('a=');
readln(a);
Writeln('n=');
readln(n);
c:=(a+1)*n;
Writeln(c:3:2,'-Otvet');
end.