Предмет: Информатика,
автор: zvezdamina
составьте на паскале программу возведения в N-ую степень целого числа X
Ответы
Автор ответа:
0
program power;
var i, n, x, res:integer;
begin
readln(x, n);
res:=x;
for i:=1 to (n-1) do
begin
res:=res*x;
end;
writeln(res);
end.
Автор ответа:
0
program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
Похожие вопросы
Предмет: Математика,
автор: Bluedemon123
Предмет: Геометрия,
автор: grauerliliya
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Геометрия,
автор: liyana