Дано целое число а и целое число N (N больше 0) Используя цикл ,вывести все степени числа А от 1 до N
Дано целое число а и целое число N (N>0) Используя цикл ,вывести все степени числа А от 1 до N
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы