Написать программу возведения целого числа в целую степень, без использования стандартных функций

@elli-il · Регистрация: 19.04.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте!!! Помогите , пожалуйста написать программу с помощью цикла.

написать программу возведения целого числа в целую степень, без использования стандартных функций.

@Puporev · 19.05.2011, 08:01

Pascal

var a,n,i:integer;
     s:real;
begin
write('Возвести число a=');
readln(a);
write('В степень n=');
readln(n);
if n=0 then s:=1
else
 begin
  s:=1;
  for i:=1 to abs(n) do
  s:=s*a;
  if n<0 then s:=1/s;
 end;
write(a,'^',n,'=',s:0:4);
readln
end.

@elli-il 1 / 1 / 2 Регистрация: 19.04.2011 Сообщений: 50
		1
	Написать программу возведения целого числа в целую степень, без использования стандартных функций 19.05.2011, 07:42. Показов 5245. Ответов 1 Метки нет (Все метки) Здравствуйте!!! Помогите , пожалуйста написать программу с помощью цикла. написать программу возведения целого числа в целую степень, без использования стандартных функций. 0

Опции темы

Написать программу возведения целого числа в целую степень, без использования стандартных функций

Решение