Составить программу, которая выводит на экран значение выражения 3 в ступени n -натуральное число, которое вводится с клавиатуры.
Answers & Comments
TheAp6y3uses crt; var x,n,res:longint; begin clrscr; write (' vvedite chislo: '); readln (x); res:=1; for i:=1 to n do res:=res*x write (res); readln; end.
Answers & Comments
var x,n,res:longint;
begin
clrscr;
write (' vvedite chislo: ');
readln (x);
res:=1;
for i:=1 to n do
res:=res*x
write (res);
readln;
end.