Введите числа a и b ’ );
readln ( a,
b );c := a;
while c < b do
begin
writeln (c:8:2) ;
c := c*a;
end;
readln;
end.
Даны числа a, b (a > 1). Получить все члены бесконечной последовательности При выполнении этой программы переменная с последовательно принимает значение a, a2, a3 … .
a, a2, a3, … an
пока an
Изменение с происходит до тех пор, пока оно не станет больше b.
Если а>b, то не будет выводить ни одного значения.
