Чему будет равно значение переменной p при a=4 и n=3 после выполнения программы
Program Test
Var a, p:integer;
i, n:real;
Begin
Write (Введите два натуральных числа)
Readln (a,n);
p:=1
for i:=1 to n do
p:=p*a;
Writeln (p=,p)
End.
Program Test
Var a, p:integer;
i, n:real;
Begin
Write (Введите два натуральных числа)
Readln (a,n);
p:=1
for i:=1 to n do
p:=p*a;
Writeln (p=,p)
End.
Answers & Comments
Рабочий вариант, если я правильно понял ваш код:
Program Yolo;
Uses Crt;
Var a: integer; i, n: byte; p: longint;
Begin
ClrScr;
Writeln('Введите число и его степень.');
Readln(a, n);
p:=1;
For i:=1 to N do
p:=p*a;
Writeln('Получившиеся число: ', p);
Readln;
End.
4 в степени 3 будет равен 64.