Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N.

@Stalker77 · Регистрация: 07.10.2010

Дано вещественное число A и целое число N (> 0). Используя один
цикл, вывести все целые степени числа A от 1 до N и используя цикл с параметром

@BlackM666 · 30.11.2010, 13:36

Pascal

var
a :real;
n,i :integer;
Begin
 readln(a,n);
 for i := 1 to n do
  begin
   writeln(exp(i*ln(a)));
  end;
readln
end.

@кот Бегемот · 30.11.2010, 13:37

а не проще так:

Pascal

st:=1;
for i:=1 to n do
begin
st:=st*a;
writeln(st);
end;

@BlackM666 · 30.11.2010, 13:45

Сообщение от кот Бегемот

а не проще так:

Pascal

st:=1;
for i:=1 to n do
begin
st:=st*a;
writeln(st);
end;

Да, так даже вернее будет. Мой вариант подходит только для a>0.

@Stalker77 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 20
		1
	Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N. 30.11.2010, 13:11. Показов 19118. Ответов 3 Метки нет (Все метки) Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N и используя цикл с параметром 0

	30.11.2010, 13:45

Опции темы