Программа для возведения числа в n-ую степень.
Написать программу возведения числа A в степень n.
Решение:
program vozv;
uses crt;
var a,n,i,k:integer;
BEGIN
clrscr;
writeln('Ввести число=');
readln(a);
writeln('В какую степень хотите возвести число?=');
readln(n);
k:=1;
for i:=1 to n do
k:=k*a;
write('Ответ =',p);
readln;
END.
|
| Категория: Простые задачи | Добавил: deespe (31.01.2011)
|
| Просмотров: 7402 | Комментарии: 1
| Рейтинг: 3.8/4 |
|
