Примерчик!!!! пожалуйсто!!!!!! - Паскаль, Turbo Pascal, PascalABC.NET

Artom · 11.05.2009, 12:52

Вычислить a в степени n (n>0)!!!!!

Sazary · 11.05.2009, 12:57

Пользуйтесь поиском! Для кого он придуман?

http://programmersforum.ru/showthread.php?t=4192

DM_bite · 11.05.2009, 13:03

Есть куча способов сделать это, вот простой:

Код:

program St;
var a,rez: integer;
    n,k: byte;
    begin
    ReadLn(a,n);
    k:=0;
    rez:= 1;
    repeat
     rez:= rez*a;
     inc(k);
     until n=k;
     WriteLn(rez);
     ReadLn;
     end.

11.05.2009, 12:52	#1
Artom Пользователь Регистрация: 11.05.2009 Сообщений: 10	Примерчик!!!! пожалуйсто!!!!!! Вычислить a в степени n (n>0)!!!!!

11.05.2009, 12:57	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	Пользуйтесь поиском! Для кого он придуман? http://programmersforum.ru/showthread.php?t=4192 Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

11.05.2009, 13:03	#3
DM_bite Участник клуба Регистрация: 29.07.2008 Сообщений: 1,091	Есть куча способов сделать это, вот простой: Код: `program St; var a,rez: integer; n,k: byte; begin ReadLn(a,n); k:=0; rez:= 1; repeat rez:= reza; inc(k); until n=k; WriteLn(rez); ReadLn; end.` Кто бы ты ни был - не думай о себе слишком (с)*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите пожалуйсто...	Antyan-screammer	Помощь студентам	5	30.01.2009 17:43
Решить примерчик	nikleb	Паскаль, Turbo Pascal, PascalABC.NET	2	21.04.2008 19:18