Дано целое число а и целое число N (N>0) Используя цикл ,вывести все степени числа А от 1 до N
Answers & Comments
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.
0 votes Thanks 1
emiliyakorzvar 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.
Answers & Comments
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.
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.