Помогите пожалуйста!!! Паскаль!!! Структура цикла: 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
var n,i:integer; a,an: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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
