Автор - Medievalics 12 лет назад

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

Ответ

Автор - AdaLavleis

program for16;var A, Pow: real; N, i: integer; begin write('Введите A и N: '); read(A, N); Pow := 1; for i := 1 to N do begin Pow := Pow * A; // Умножаем предыдущую число на А writeln(A, ' в ', i, ' степени равно ', Pow); end;end.

Ответ

Автор - emiliyakorz

var
a,s: real;

n,i: byte;

begin
write('Введите вещественное a: ');

readln(a);

repeat
write('Введите целое n (n>0): ');

readln(n);

until (n>0);

s:=1;

for i:=1 to n do
begin
s:=s*a;

writeln(a,' в степени ',i,' = ',s);

end;

readln; //в pascalAbc.net - не обязательно

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

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