Структура цикла: for i: =c to x do begin end i*-переменная(принято принимать ее за i или j) важно: i может принимать только натуральные значения! c*-число, которое присваивается i в начале цикла. x*-число(переменная), достигнув которого, цикл завершит работу. дано вещественное число a и целое число n (n> 0). найти a в степени n: an = a•a••a (числа a перемножаются n раз). входные данные: ввести вещественное число а (-5< =a< =5) и целое число n (1< =n< =10). выходные данные: вывести a в степени n с точностью до 4 цифр в дробной части. вещественное число это число типа real!
begin
write('A = '); readln(a);
write('N = '); readln(n);
an:=1;
for i:=1 to n do an:=an*a;
writeln(a,'^',n,' = ',an:6:4);
end.
Пример:
A = 2.1
N = 4
2.1^4 = 19.4481