Составьте на паскале программу возведения в N-ую степень целого числа X.
Составьте на паскале программу возведения в N-ую степень целого числа X.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы