Предмет: Информатика,
автор: nkhabitova
помогите пожалуйста!!!!!
дано действительно x, не равное 0, и натуральное n. вычислить x^n, используя цикл for
информатика
Ответы
Автор ответа:
0
Var
n,x,s,i:integer;
Begin
Readln(x,n);
s:=1;
For i:=1 to n do
s:=s*x;
Writeln(s);
end.
Интересные вопросы
Предмет: Право,
автор: dashka18mashka
Предмет: Математика,
автор: isakovaelizaveta5
Предмет: История,
автор: smirnova2008anya78
Предмет: Литература,
автор: Directioner423
Предмет: Математика,
автор: TRIP189