Автор: Евгений Токарев

Евгений Токарев — Wed, 12 Dec 2018 21:20:47 +0000

Program p16;
var
a,sum:real;
n,i:integer;
begin
writeln('Введите возводимое число');
readln(a);
writeln('Введите степень');
readln(n);
for i:=1 to n do 
 write('  ',exp(ln(a)*i));
 end.

Program p16;

var

a,sum:real;

n,i:integer;

begin

writeln('Введите возводимое число');

readln(a);

writeln('Введите степень');

readln(n);

for i:=1 to n do

write(' ',exp(ln(a)*i));

end.

Комментарии: Цикл с параметром: группа For

Автор: Евгений Токарев